Mac Magazin/MacEasy 33

home *** CD-ROM | disk | FTP | other *** search

/ Mac Magazin/MacEasy 33 / Mac Magazin and MacEasy Magazine CD - Issue 33.iso / Utilities / Frodo v4.0.7 / Commodore 64 Guide.TXT < prev next >

Wrap

Text File | 1996-09-24 | 304KB | 6,993 lines

********* Welcome to Project 64! The goal of Project 64 is to preserve Commodore 64 related documents in electronic text format that might otherwise cease to exist with the rapid advancement of computer technology and declining interest in 8- bit computers on the part of the general population. If you would like to help by converting C64 related hardcopy documents to electronic texts please contact the manager of Project 64, Cris Berneburg, at 74171.2136@compuserve.com. Extensive efforts were made to preserve the contents of the original document. However, certain portions, such as diagrams, program listings, and indexes may have been either altered or sacrificed due to the limitations of plain vanilla text. Diagrams may have been eliminated where ASCII-art was not feasible. Program listings may be missing display codes where substitutions were not possible. Tables of contents and indexes may have been changed from page number references to section number references. Please accept our apologies for these limitations, alterations, and possible omissions. Document names are limited to the 8.3 file convention of DOS. The first characters of the file name are an abbreviation of the original document name. The version number of the etext follows next. After that a letter may appear to indicate the particular source of the document. Finally, the document is given a .TXT extension. The author(s) of the original document and members of Project 64 make no representations about the accuracy or suitability of this material for any purpose. This etext is provided "as-is". Please refer to the warantee of the original document, if any, that may included in this etext. No other warantees, express or implied, are made to you as to the etext or any medium it may be on. Neither the author(s) nor the members of Project 64 will assume liability for damages either from the direct or indirect use of this etext or from the distribution of or modification to this etext. ********* The Project 64 etext of the Commodore 64 User's Guide. Converted to etext by Frank Jeno Kontros <jeno@kontr.uzhgorod.ua>, the Non Stop Cracker. C64USG10.TXT, September 1996, etext #91. ********* Note: To extract the ascii text basic programs all at once from this etext use "tok64" by Cris Berneburg <74171.2136@compuserve.com>. Or to extract the uuencoded basic programs all at once use "uud" by Edwin Kremer <edwin@zlotty>. ********* There was a great work, but finally, after 2 weeks of correcting and formatting the text to the format what you now see, it is ready. I hope that this manual is the second greatest project after COMMDODORE 64 PROGRAMMER'S REFERENCE GUIDE. It is dedicated to C64 users who haven't the original manual or buy 64 without it. Enjoy it! Generally it is the original US manual with all programs and near all pictures. There was many bugs & mispells corrected by me. Also the index now is more usable instead original. If you find errors in the text, please report them so that they can be fixed. There should not be many, though... Frank Kontros, The Non Stop Cracker, jeno@kontr.uzhgorod.ua ********* COMMODORE 64 USER'S GUIDE _____ / ___|___ | / |__/ c o m m o d o r e | \___|__\ C O M P U T E R \_____| USER'S MANUAL STATEMENT "This equipment generates and uses radio frequency energy and if not installed and used properly, that is, in strict accordance with the manufacturer's instructions, may cause interference to radio and television reception. It has been type tested and found to comply with the limits for a Class B computing device in accordance with the specifications in Subpart J of Part 15 of FCC rules, which are designed to provide reasonable protection against such interference in a residential installation. However, there is no guarantee that interference will not occur in a particular installation. If this equipment does cause interference to radio or television reception, which can be determined by turning the equipment off and on, the user is encouraged to try to correct the interference by one or more of the following measures: - reorient the receiving antenna, - relocate the computer with respect to the receiver, - move the computer away from the receiver, - plug the computer into a different outlet so that computer and receiver are on different branch circuits. "If necessary, the user should consult the dealer or an experienced radio/television technician for additional suggestions. The user may find the following booklet prepared by the Federal Communications Commission helpful: 'How to Identify and Resolve Radio-TV Interference Problems.' This booklet is available from the U.S. Government Printing Office, Washington, D.C. 20402, Stock No. 004-000-00345-4." COMMODORE 64 USER'S GUIDE Published by Commodore Business Machines, Inc. and Howard W. Sams & Co., Inc. FIRST EDITION THIRD PRINTING-1983 Copyright (C) 1982 by Commodore Business Machines, Inc. All rights reserved. This manual is copyrighted and contains proprietary information. No part of this publication may be reproduced, stored in a retrieval system, or transmitted in any form or by any means, electronic, mechanical, photocopying, recording, or otherwise, without the prior written permission of COMMODORE BUSINESS MACHINES, Inc. TABLE OF CONTENTS INTRODUCTION 1. SETUP 1.1. Unpacking and Connecting the Commodore 64 1.2. Installation 1.3. Optional Connections 1.4. Operation 1.5. Color Adjustment 2. GETTING STARTED 2.1. Keyboard 2.2. Back to Normal 2.3. Loading and Saving Programs 2.4. PRINT and Calculations 2.5. Precedence 2.6. Combining Things 3. BEGINNING BASIC PROGRAMMING 3.1. The Next Step GOTO 3.2. Editing Tips 3.3. Variables 3.4. IF ... THEN 3.5. FOR ... NEXT Loops 4. ADVANCED BASIC 4.1. Introduction 4.2. Simple Animation Nested Loops 4.3. INPUT 4.4. GET 4.5. Random Numbers and Other Functions 4.6. Guessing Game 4.7. Your Roll 4.8. Random Graphics CHR$ and ASC Functions 5. ADVANCED COLOR AND GRAPHIC COMMANDS 5.1. Color and Graphics 5.2. PRINTing Colors 5.3. Color CHR$ Codes 5.4. PEEKs and POKEs 5.5. Screen Graphics 5.6. Screen Memory Map 5.7. Color Memory Map 5.8. More Bouncing Balls 6. SPRITE GRAPHICS 6.1. Introduction to Sprites 6.2. Sprite Creation 6.3. Additional Notes on Sprites 6.4. Binary Arithmetic 7. CREATING SOUND 7.1. Using Sound if You're Not a Computer Programmer 7.2. Structure of a Sound Program 7.3. Sample Sound Program 7.4. Making Music on Your Commodore 64 7.5. Important Sound Settings 7.6. Playing a Song on the Commodore 64 7.7. Creating Sound Effects 7.8. Sample Sound Effects To Try 8. ADVANCED DATA HANDLING 8.1. READ and DATA 8.2. Averages 8.3. Subscripted Variables One-Dimensional Arrays Averages Revisited 8.4. DIMENSION 8.5. Simulated Dice Roll With Arrays 8.6. Two-Dimensional Arrays APPENDICES Introduction A: COMMODORE 64 ACCESSORIES AND SOFTWARE B: ADVANCED CASSETTE OPERATION C: COMMODORE 64 BASIC D: ABBREVIATIONS FOR BASIC KEYWORDS E: SCREEN DISPLAY CODES F: ASCII AND CHR$ CODES G: SCREEN AND COLOR MEMORY MAP H: DERIVING MATHEMATICAL FUNCTIONS I: PINOUTS FOR INPUT/OUTPUT DEVICES J: PROGRAMS TO TRY K: CONVERTING STANDARD BASIC PROGRAMS TO COMMODORE 64 BASIC L: ERROR MESSAGES M: MUSIC NOTE VALUES N: BIBLIOGRAPHY O: SPRITE REGISTER MAP P: COMMODORE 64 SOUND CONTROL SETTINGS INDEX INTRODUCTION Congratulations, on your purchase of one of the best computers in the world. You are now the proud owner of the COMMODORE 64. Commodore is known as The Friendly Computer company, and part of being friendly is giving you easy to read, easy to use and easy to understand instruction manuals. The COMMODORE 64 USER'S GUIDE is designed to give you all the information you need to properly set up your equipment, get acquainted with operating the COMMODORE 64, and give you a simple, fun start at learning to make your own program. For those of you who don't want to bother learning how to program, we've put all the information you need to use Commodore programs or other prepackaged programs and/or game cartridges (third party software) right up front. This means you don't have to hunt through the entire book to get started. Now let's look at some of the exciting features that are just waiting for you inside your COMMODORE 64. First, when it comes to graphics you've got the most advanced picture maker in the microcomputer industry. We call it SPRITE GRAPHICS, and it allows you to design your own pictures in 4 different colors, just like the ones you see on arcade type video games. Not only that, the SPRITE EDITOR let's you animate as many as 8 different picture levels at one time. The SPRITE EDITOR will soon be available as software program that you can load directly into your COMMODORE 64. You can move your creations anywhere on the screen, even pass one image in front of or behind another. Your COMMODORE 64 even provides automatic collision detection which instructs the computer to take the action you want when the sprites hit each other. Next, the COMMODORE 64 has built-in music and sound effects that rival many well known music synthesizers. This part of your computer gives you 3 independent voices, each with a full 9 octave "piano-type" range. In addition you get 4 different waveforms (sawtooth, triangle, variable pulse, and noise), a programmable ADSR (attack, decay, sustain, release) envelope generator and a programmable high, low, and bandpass filter for the voices, and variable resonance and volume controls. If you want your music to play back with professional sound reproduction, the COMMODORE 64 allows you to connect your audio output to almost any high-quality amplification system. While we're on the subject of connecting the COMMODORE 64 to other pieces of equipment ... your system can be expanded by adding accessories, known as peripherals, as your computing needs grow. Some of your options include items like a DATASSETTE recorder or as many as 5, VIC 1541 disk drive units for the programs you make and/or play. If you already have a VIC 1540 disk drive your dealer can update it for use with the COMMODORE 64. You can add a VIC dot matrix printer to give you printed copies of your programs, letters, invoices, etc... If you want to connect up with larger computers and their massive data bases then just plug in a VICMODEM cartridge, and get the services of hundreds of specialists and a variety of information networks through your home or business telephone. Finally if you're one of those people interested in the wide variety of applications software available in CP/M, the COMMODORE 64 can be fitted with a plug-in Z-80 microprocessor. Just as important as all the available hardware is the fact that this USER'S GUIDE will help you develop your understanding of computers. It won't tell you everything there is to know about computers, but it will refer you to a wide variety of publications for more detailed information about the topics presented. Commodore wants you to really enjoy your new COMMODORE 64. And to have fun, remember: programming is not the kind of thing you can learn in a day. Be patient with yourself as you go through the USER'S GUIDE. But before you start, take a few minutes to fill out and mail in the owner/registration card that come with your computer. It will ensure that your COMMODORE 64 is properly registered with Commodore Headquarters and that you receive the most up-to-date information regarding future enhancements for your machine. Welcome to a whole new world of fun! NOTE: Many programs are under development while this manual is being produced. Please check with your local Commodore dealer and with Commodore User's Magazines and Clubs, which will keep you up to date on the wealth of applications programs being written for the Commodore 64, worldwide. 1. SETUP 1.1. Unpacking and Connecting the Commodore 64 The following step-by-step instructions show you how to connect the Commodore 64 to your television set, sound system, or monitor and make sure everything is working properly. Before attaching anything to the computer, check the contents of the Commodore 64 container. Besides this manual, you should find the following items: 1. Commodore 64 2. Power supply (black box with an AC plug and supply cord) 3. Video cable 4. TV Switchbox (small silver box with short antenna leads). If any items are missing check back with your dealer immediately for a replacement. First, let's take a look at the arrangement of the various connections on the computer and how each functions. /####\--------^--\ /#### | /#### | ____/#### | / | | ---- ---- __ /-\ | | \--/ \--/ == \_/ | \________________\___/______/____|__/ \/ / | 3 2 1 GAME POWER POWER PORTS SWITCH SOCKET ___/###\__/##_##_##_##_##_##_##_##_##_##_##_##_##_##_##_##\__ |-------------------------------------------------------------| | | | | | | | +--------------+ /-\ /-\ +------+ +----------+ | | |==============| [=] O \_/ \_/ |======| |==========| | +-----/-------------/----/-----\-----\--------\---------\-----+ / / / \ \ \ \ 4 5 6 7 8 9 10 CARTRIDGE CHANNEL TV AUDIO/VIDEO SERIAL CASSETTE USER SLOT SELECTOR CONNECTOR CONNECTOR PORT INTERFACE PORT SIDE PANEL CONNECTIONS 1. POWER SOCKET. The free end of the cable from the power supply is attached here to supply power to the Commodore 64. 2. POWER SWITCH. Turns on power to the Commodore 64. 3. GAME PORTS. Each game connector can accept a joystick or game controller paddle, while the lightpen can only be plugged into the game port closest to the front of your computer. REAR CONNECTIONS 4. CARTRIDGE SLOT. The rectangular slot to the left accepts program or game cartridges. 5. CHANNEL SELECTOR. Use this switch to select which TV channel the computer's picture will be displayed on. 6. TV CONNECTOR. This connector supplies both the picture and sound to your television set. 7. AUDIO & VIDEO OUTPUT. This connector supplies direct audio, which can be connected to a high quality sound system, and a "composite" video signal, which can be fed into a television "monitor". 8. SERIAL PORT. You can attach a printer or single disk drive directly to the Commodore 64 through this connector. 9. CASSETTE INTERFACE. A DATASSETTE recorder can be attached to the computer so you can save information entered for use at a later time. 10. USER PORT. Various interface cartridges can be attached to the user port, such as the VICMODEM, or RS 232 communication cartridge. 1.2. Installation CONNECTIONS TO YOUR TV Connect the computer to your TV as shown below. TV Switchbox +--+-----------------+--+ +-----+ | | /-------------\#| | /---------------#= =| |= | | | |#| | | +--#--+ | | | |#| | | \\_ | | | | | | | \_ | | | | | | To TV | To 300 Ohm | | \-------------/ | | Signal # Antenna Input +==+=================+==+ Jack | /------------------------\ | |=---\ | #################### ## | | | #################### ## | | | ################## ## | | | ############## ## | | \________________________/ | | | | +---+ | | Power | | Supply +---+ | | 1. Attach one end of the TV cable to the phono type TV signal jack at the rear of the Commodore 64. Just push it in. Either end of the cable can be used. 2. Connect the other end of the cable to the antenna switchbox. Just push it in. 3. If you have a VHF antenna, disconnect it from your TV set. 4. Connect your VHF antenna cable to the screw terminals labeled "antenna input" on the switchbox. If your antenna cable is the round 75-ohm coax type, use a 75-ohm to 300-ohm adapter (not supplied) to attach your antenna cable to the switchbox. 5. Connect the twin lead output cable of the antenna switchbox to the VHF antenna terminals of your TV set. If your set is one of the newer types with a round 75-ohm VHF connector, you will need a 300-ohm to 75-ohm converter (not supplied) to connect the switchbox to the 75-ohm VHF antenna input on the set. 6. Set the TV's VHF tuner to the channel number indicated on the computer's channel selector switch (channel 3 move the switch to the left, channel 4 move the switch to the right). If a strong local TV signal is present on one of these channels, select the other channel to avoid possible interference. 7. Plug the power supply cable into the power socket on the side of the Commodore 64. Just push it in. It is "keyed" to allow insertion in only one direction, so you can't connect the power cord the wrong way. The power supply converts household current into the form the computer uses. /+---------------+ + | | | | | | | | | | / | | | | |========| | | |========| | | / | | | | | | | | | _ _ / | | |O| |O| | + | # # | \+-----\---/----+ \ / | | | | | | ++-++ 75 Ohm to |___| 300 Ohm ----> | | Adapter | | +---+ \=/ ### Your 75 Ohm ----> | | Coax VHF Antenna | | /----------- -----------\ | /==\ /==\ /==\ | | ||__|| ||__|| ||__|| | | \__/ \__/ \__/ | \__________________________/ ^ To VHF _|___ ANT. +---+/ 300 Ohm | || to 75 Ohm --> | || Adapter ++-++/ | | | | |_|/ / The Commodore 64 is now correctly connected. No additional connections are required to use the computer with your TV. The antenna switchbox will connect the computer to the TV when the slide switch is in the "computer" position. When the switch is in the "TV" position your set will operate normally. ___/###\__/##_##_##_##_##_##_##_##_##_##_##_##_##_##_##_##\__ |-------------------------------------------------------------| | | | | | | | +--------------+ /-\ /-\ +------+ +----------+ | | |==============| [=] O \_/ \_/ |======| |==========| | +-------------------------------------------------------------+ ^ To | TV Signal | Jack | Back of Your TV # _/----------------------------- | | / \ / +-------------------------------- | | \__________I______________________ | \ |-------+ | | UHF | | | O O | |#| | VHF | | ||O| |O|| /---------=-\ /| # # | | COMPUTER | / |-|---|-+ | | | 200 Ohm | | | | | | VHF | | \_____| | | Input | \_________| | | | | | | | | TV | | Antenna ->| |O| |O| | | Switch \___#___#___/ | Box | | __ | |___|/ __/ Your VHF Antenna (If Used) 1.3. Optional Connections Since the Commodore 64 furnishes a channel of high fidelity sound, you may wish to play it through a quality amplifier to realize the best sound possible. In addition, the Commodore 64 also provides a standard "composite" video signal, which can be fed into a television monitor. These options are made possible by the audio/video output jack on the rear panel of the Commodore 64. The easiest way to gain access to these signals is by using a standard 5-Pin DIN audio cable (not supplied). This cable connects directly to the audio/video connector on the computer. Two of the four pins on the opposite end of the cable contain the audio and video signals. Optionally, you can construct your own cable, using the pinouts shown in Appendix I as a guide. Normally, the BLACK connector of the DIN cable supplies the AUDIO signal. This plug may be connected to the AUXILIARY input of an amplifier, or the AUDIO IN connector of a monitor or other video system, such as a video cassette recorder (VCR). The WHITE or RED connector usually supplies the direct VIDEO signal. This plug is connected to the VIDEO IN connector of the monitor or video input section of some other video system, such as a VCR. Depending on the manufacturer of your DIN cable, the color coding of the plugs may be different. Use the pinouts shown in Appendix I to match up the proper plugs if you don't get an audio or video signal using the suggested connections. __###__################################__ / \ | Audio/Video | | Output | |-----------------_---_-------------------| | ========= = o | | | | ===== ========= | +-----------------------------------------+ ^ | /-\ | | | | # | | To AUXILIARY | INPUT or | ____________ TUNER INPUT | / \ / \ To VIDEO IN +----++------------++----+ <-#-/ \-#-> +------------+---+ | || ### ====== || | | /--------\ | O | | || === OoooO || | || || = | | ||------------|| | || || o | | || | | | || | | \________/ | | | || | | | || | +------------+---+ +----++============++----+ TV Monitor Audio System If you purchased peripheral equipment, such as a VIC 1541 disk drive or a VIC 1525E printer, you may wish to connect it at this time. Refer to the user's manuals supplied with any additional equipment for the procedure for connecting it to the computer. A completed system might look like this. [ Picture omitted ] 1.4. Operation USING THE COMMODORE 64 1. Turn on the computer using the rocker switch on the right-side panel when you're looking at the computer from the front. 2. After a few moments the following will be displayed on the TV screen: **** COMMODORE 64 BASIC V2 **** 64K RAM SYSTEM 38911 BASIC BYTES FREE READY. _ <----------- Cursor signals Commodore 64 is waiting for your input 3. If your TV has a manual fine tuning knob, adjust the TV until you get a clear picture. 4. You may also want to adjust the color and tint controls on the TV for the best display. You can use the color adjustment procedure described later to get everything setup properly. When you first get a picture, the screen should appear mostly dark blue, with a light blue border and letters. If you don't get the expected results, recheck the cables and connections. The accompanying chart will help you isolate any problem. TROUBLESHOOTING CHART +-----------------------------------------------------------------------+ | Symptom Cause Remedy | +-----------------------------------------------------------------------+ | Indicator Light Computer not "On" Make sure power switch | | not "On" is in "On" position | | | | Power cable not Check power socket for | | not plugged in loose or disconnected | | power cable | | | | Power supply not Check connection with | | plugged in wall outlet | | | | Bad fuse in Take system to authorized | | computer dealer for replacement of | | fuse | | | | TV on wrong Check other channel | | channel for picture (3 or 4) | | | | Incorrect Computer hooks up to | | hookup VHF antenna terminals | | | | Video cable not Check TV output cable | | plugged in connection | | | | Computer set for Set computer for same | | wrong channel channel as TV (3 or 4) | | | | Random patterns on Cartridge not Reinsert cartridge after | | TV with cartridge properly inserted turning off power | | in place | | | | Picture without Poorly tuned TV Retune TV | | color | | | | Picture with Bad color Adjust color/hue/ | | poor color adjustment on TV brightness controls on TV | | | | Sound with excess TV volume up high Adjust volume of TV | | background noise | | | | Picture OK, TV volume too low Adjust volume of TV | | but no sound | | | | Aux. output not Connect sound jack to | | properly connected aux. input on amplifier | | and select aux. input | +-----------------------------------------------------------------------+ TIP: The COMMODORE 64 was designed to be used by everyone. But we at Commodore recognize that computer users may, occasionally, run into difficulties. To help answer your questions and give you some fun programming ideas, Commodore has created several publications to help you. You might also find that it's a good idea to join a Commodore Users Club to help you meet some other COMMODORE 64 owners who can help you gain knowledge and experience. CURSOR The flashing square under READY is called the cursor and indicates where what you type on the keyboard will be displayed on the screen. As you type, the cursor will move ahead one space, as the original cursor position is replaced with the character you typed. Try typing on the keyboard and watch as characters you type are displayed on the TV screen. 1.5. Color Adjustment There is a simple way to get a pattern of colors on the TV so you can easily adjust the set. Even though you may not be familiar with the operation of the computer right now, just follow along, and you'll see how easy it is to use the Commodore 64. First, look on the left side of the keyboard and locate the key marked <CTRL>. This stands for ConTRoL and is used, in conjunction with other keys, to instruct the computer to do a specific task. [ Picture omitted ] To use a control function, you hold down the <CTRL> key while depressing a second key. Try this: hold the <CTRL> key while also depressing the <9> key. Then release both keys. Nothing obvious should have happened, but if you touch any key now, the screen will show the character displayed in reverse type, rather than normal type -- like the opening message or anything you typed earlier. Hold down the <SPACE BAR>. What happens? If you did the above procedure correctly, you should see a light blue bar move across the screen and then move down to the next line as long as the <SPACE BAR> is depressed. **** COMMODORE 64 BASIC V2 **** 64K RAM SYSTEM 38911 BASIC BYTES FREE READY. ____________________________ __________ Now, hold <CTRL> while depressing any of the other number keys. Each of them has a color marked on the front. Anything displayed from this point will be in that color. For example, hold <CTRL> and the <8> key and release both. Now hold the <SPACE BAR>. Watch the display. The bar is now in yellow! In a like manner you can change the bar to any of the colors indicated on the number keys by holding <CTRL> and the appropriate key. Change the bar to a few more different colors and then adjust the color and tint controls on your TV so the display matches the colors you selected. The display should appear something like this: **** COMMODORE 64 BASIC V2 **** 64K RAM SYSTEM 38911 BASIC BYTES FREE READY. _________________________ <------ <3> Red bar _______ ____________ ____ <------ <3>,<6>,<7> Red, Green, Blue bars __________ ______________ <------ <7>,<8> Blue, Yellow bars ____________ <------ <8> Yellow bar At this point everything is properly adjusted and working correctly. The following chapters will introduce you to the BASIC language. However, you can immediately start using some of the many prewritten applications and games available for the Commodore 64 without knowing anything about computer programming. Each of these packages contains detailed information about how to use the program. It is suggested, though, that you read through the first few chapters of this manual to become more familiar with the basic operation of your new system. 2. GETTING STARTED 2.1. Keyboard Now that you've got everything set up and adjusted, please take a few moments to familiarize yourself with the keyboard which is your most important means of communication with the Commodore 64. You will find the keyboard similar to a standard typewriter keyboard found in most areas. There are, however, a number of new keys which control specialized functions. What follows is a brief description of the various keys and how they function. The detailed operation of each key will be covered in later sections. [ Picture omitted ] <RETURN> The <RETURN> key signals the computer to look at the information that you typed and enters that information into memory. <SHIFT> The <SHIFT> key works like that on a standard typewriter. Many keys are capable of displaying two letters or symbols and two graphic characters. In the "upper/lower case" mode the <SHIFT> key gives you standard upper case characters. In the "upper case/graphic" mode the <SHIFT> key will display the graphic character on the right hand side of the front part of the key. In the case of special YELLOW function keys, the <SHIFT> key will give you the function marked on the front of the key. EDITING No one is perfect, and the Commodore 64 takes that into account. A number of editing keys let you correct typing mistakes and move information around on the screen. <CRSR> There are two keys marked <CRSR> (CuRSoR), one with up and down arrows, the other with left and right arrows. You can use these keys to move the cursor up and down or left and right. In the unshifted mode, the <CRSR> keys will let you move the cursor down and to the right. Using the <SHIFT> key and <CRSR> keys allows the cursor to be moved either up or to the left. The cursor keys have a special repeat feature that keeps the cursor moving until you release the key. <INST/DEL> If you hit the <INST/DEL> key, the cursor will move back a space, erasing (DELeting) the previous character you typed. If you're in the middle of a line, the character to the left is deleted and the characters to the right automatically move together to close up the space. A <SHIFT>ed <INST/DEL> allows you to INSerT information on a line. For example, if you noticed a typing mistake in the beginning of a line -- perhaps you left out part of the name -- you could use the <CRSR> key to move back to the error and then hit <INST/DEL> to insert a space. Then just type in the missing later. <CLR/HOME> <CLR/HOME> positions the cursor at the "HOME" position of the screen, which is the upper left-hand corner. A shifted <CLR/HOME> will clear the screen and place the cursor in the home position. <RESTORE> <RESTORE> operates as the name implies. It stores the computer to the normal state it was in before you changed things with a program or some command. A lot more will be said on this in later chapters. FUNCTION KEYS The four function keys on the right side of the keyboard can be "programmed" to handle a variety of functions. They can be defined in many ways to handle repetitive tasks. [ Picture omitted ] <CTRL> The <CTRL> key, which stands for ConTRoL, allows you to set colors, and perform other specialized functions. You hold the <CTRL> key down while depressing another designated key to get a control function. You had an opportunity to try the <CTRL> key when you changed text colors to create different color bars during the setup procedure. <RUN/STOP> Normally, depressing the <RUN/STOP> key will stop the execution of a BASIC program. It signals the computer to STOP doing something. Using the <RUN/STOP> key in the shifted mode will allow you to automatically load a program from tape. <C=> COMMODORE KEY The Commodore key <C=> performs a number of functions. First, it allows you to move between the text and graphic display modes. When the computer is first turned on, it is in the upper case/graphic mode, that is, everything you type is in upper case letters. As was mentioned, using the <SHIFT> key in this mode will display the graphic on the right side of the keys. If you hold down the <C=> key and <SHIFT> key, the display will change to upper and lower case. Now, if you hold down the <C=> key and any other key with a graphic symbol, the graphic shown on the left side of the key will be displayed. To get back into the upper case/graphic mode hold down the <C=> key and <SHIFT> key again. The second function of the <C=> key is to allow you access to a second set of eight text colors. By holding down the <C=> key and any of the number keys, any text now typed will be in the alternate color available from the key you depressed. Chapter 5 lists the text colors available from each key. 2.2. Back to Normal Now that you've had a chance to look over the keyboard, let's explore some of the Commodore 64's many capabilities. If you still have the color bars on the screen from adjusting your TV set, hold <SHIFT> and <CLR/HOME>. The screen should clear and the cursor will be positioned in the "home" spot (upper left-hand corner of the screen). Now, simultaneously hold <C=> and the <7> key. This sets the text color back to light blue. There is one more step needed to get everything back to normal. Hold <CTRL> and <0> (Zero not Oh!). This sets the display mode back to normal. If you remember, we turned REVERSE type on with the <CTRL><9> to create the color bars (the color bars were actually reversed spaces). If we were in the normal text mode during the color test, the cursor would have moved, but just left blank spaces. TIP: Now that you've done things the hard way, there is a simple way to reset the machine to the normal display. First press the <RUN/STOP> key and then press the <RESTORE> key. <RUN/STOP> must always be held down in order to use the <RESTORE> key function. This will clear the screen and return everything to normal. If there is a program in the computer, it will be left untouched. This is a good sequence to remember, especially if you do a lot of programming. If you wish to reset the machine as if it were turned off and then switched on again, type, SYS 64759 and press <RETURN>. Be careful using this command! It will wipe out any program or information that is currently in the computer. 2.3. Loading and Saving Programs One of the most important features of the Commodore 64 is the ability to save and load programs to and from cassette tape or disk. This capability allows you to save the programs you write for use at a later time, or purchase prewritten programs to use with the Commodore 64. Make sure that either the disk drive or cassette unit is attached properly. LOADING PREPACKAGED PROGRAMS For those of you interested in using only prepackaged programs available on cartridges, cassette, or disk here's all you have to do: 1. CARTRIDGES: The Commodore 64 computer has a line of programs and games on cartridge. The programs offer a wide variety of business and personal applications and the games are just like real arcade games -- not imitations. To load these games, first turn on your TV set. Next turn OFF your Commodore 64. YOU MUST TURN OFF YOUR COMMODORE 64 BEFORE INSERTING OR REMOVING CARTRIDGES OR YOU MAY DAMAGE THE CARTRIDGE AND/OR YOUR COMMODORE 64! Third insert the cartridge. Now turn your Commodore 64 on. Finally type the appropriate START key as is listed on the instruction sheet that comes with each game. 2. CASSETTES: Use your DATASSETTE recorder and the ordinary audio cassettes that came as part of your prepackaged program. Make sure the tape is completely rewound to the beginning of the first side. Then just type LOAD. The computer will answer with PRESS PLAY ON TAPE, so you respond by pressing play on your datassette machine. At this point the computer screen will go blank until the program is found. The computer will say FOUND (PROGRAM NAME) on the screen. Now you press down on the <C=> key. This will actually load the program into the computer. If you want to stop the loading simply press <RUN/STOP> key. 3. DISK: Using your disk drive, carefully insert the preprogrammed disk so that the label on the disk is facing up and is closest to you. Look for a little notch on the disk (it might be covered with a little piece of tape). If you're inserting the disk properly the notch will be on the left side. Once the disk is inside close the protective gate by pushing down on the lever. Now type LOAD "PROGRAM NAME",8 and hit the <RETURN> key. The disk will make noise and your screen will say: SEARCHING FOR PROGRAM NAME LOADING READY. _ When the READY comes on and the _ is on, just type RUN, and your prepackaged software is ready to use. LOADING PROGRAMS FROM TAPE Loading a program back from tape or disk is just as simple. For tape, rewind the tape back to the beginning and type: LOAD "PROGRAM NAME" If you don't remember the program name, just type LOAD and the first program on the tape will be loaded into memory. After you press <RETURN> the computer will respond with: PRESS PLAY ON TAPE After you depress the play key, the screen will blank, turning the border color of the screen as the computer searches for the program. When the program is found, the screen will display: FOUND PROGRAM NAME To actually load the program, depress the <C=> key. To abandon the loading procedure, hit <RUN/STOP>. If you hit the Commodore key, the screen will again turn the border color while the program is loaded. After the loading procedure is completed, the screen will return to the normal state and the READY prompt will reappear. LOADING PROGRAMS FROM DISK Loading a program from disk follows the same format. Type: LOAD "PROGRAM NAME",8 The 8 is the code for the disk, so you're just letting the computer know that you want the program loaded from the disk. After you hit <RETURN> the disk will start whirring and the display shows: SEARCHING FOR PROGRAM NAME LOADING READY. _ NOTE: When you load a new program into the computer's memory, any instructions that were in the computer previously will be erased. Make sure you save a program you're working on before loading a new one. Once a program has been loaded, you can RUN it, LIST, or make changes and re-save the new version. SAVING PROGRAMS ON TAPE After entering a program, if you wish to save it on tape, type: SAVE "PROGRAM NAME" "PROGRAM NAME" can be up to 16 characters long. After you hit <RETURN> the computer will respond with: PRESS PLAY AND RECORD ON TAPE Press both the record and play keys on the datassette. The screen will blank, turning the color of the border. After the program is saved on tape, the READY prompt will reappear, indicating that you can start working on another program, or just turn off the computer for a while. SAVING PROGRAMS ON DISK Saving a program on disk is even simpler. Type: SAVE "PROGRAM NAME",8 The 8 is the code for the disk, so you're just letting the computer know you want the program saved to disk. After you press <RETURN> the disk will start to turn and the computer will respond with: SAVING PROGRAM NAME OK READY. _ 2.4. PRINT and Calculations Now that you've gotten through a couple of the more difficult operations you need in order to keep the programs you like, lets start making some programs for you to save. Try typing the following exactly as shown: PRINT "COMMODORE 64" <----- Type this line and hit <RETURN> COMMODORE 64 <------ Computer typed READY. _ If you make a typing mistake, use the <INST/DEL> key to erase the character immediately to the left of the cursor. You can delete as many characters as necessary. Let's see what went on in the example above. First, you instructed (commanded) the computer to PRINT whatever was inside the quote marks. By hitting <RETURN> you told the computer to do what you instructed and COMMODORE 64 was printed on the screen. When you use the PRINT statement in this form, whatever is enclosed in quotes is printed exactly as you typed it. If the computer responded with: ?SYNTAX ERROR ask yourself if you made a mistake in typing, or forgot the quote marks. The computer is precise and expects instructions to be given in a specific form. But don't get worried; just remember to enter things as we present them in the examples and you'll get along great with the Commodore 64. Remember, you can't hurt the computer by typing on it, and the best way to learn BASIC is to try different things and see what happens. PRINT is one of the most useful and powerful commands in the BASIC language. With it, you can display just about anything you wish, including graphics and results of computations. For example, try the following. Clear the screen by holding down the <SHIFT> key and <CLR/HOME> key and type (be sure to use the '1' key for one, not a letter 'I'): PRINT 12 + 12 <----- Type this line and hit <RETURN> 24 <------ Computer printed the answer READY. _ What you've discovered is that the Commodore 64 is a calculator in its basic form. The result of "24" was calculated and printed automatically. In fact, you can also perform subtraction, multiplication, division, exponentiation, and advanced math functions such as calculating square roots, etc. And you're not limited to a single calculation on a line, but more on that later. Note that in the above form, PRINT behaved differently from the first example. In this case, a value or result of a calculation is printed, rather than the exact message you entered because the quote marks were omitted. ADDITION The plus sign (+) signals addition: we instructed the computer to print the result of 12 added to 12. Other arithmetic operations take a similar form to addition. Remember to always hit <RETURN> after typing PRINT and the calculation. SUBTRACTION To subtract, use the conventional minus (-) sign. Type: PRINT 12 - 9 <----- Hit <RETURN> 3 MULTIPLICATION If you wanted to multiply 12 times 12, use the asterisk (*) to represent multiplication. You would type: PRINT 12 * 12 <----- Hit <RETURN> 144 DIVISION Division uses the familiar "/". For example, to divide 144 by 12, type: PRINT 144 / 12 <----- Hit <RETURN> 12 EXPONENTIATION In a like fashion, you can easily raise a number to a power (this is the same as multiplying a number by itself a specified number of times). The '^' (up arrow) signifies exponentiation. PRINT 12 ^ 5 248832 This is the same as typing: PRINT 12 * 12 * 12 * 12 * 12 248832 TIP: BASIC has number of shortcut ways of doing things. One such way is abbreviating BASIC commands (or keywords). A '?' can be used in place of PRINT, for example. As we go on you'll be presented with many commands; Appendix D shows the abbreviations for each and what will be displayed on the screen when you type the abbreviated form. The last example brings up another important point: many calculations may be performed on the same line, and they can be of mixed types. You could calculate this problem: ? 3 + 5 - 7 + 2 (The '?' replaces the word PRINT) 3 Up to this point we've just used small numbers and simple examples. However, the Commodore 64 is capable of more complex calculations. You could, for example, add a number of large figures together. Try this, but don't use any commas, or you'll get an error: ? 123.45 + 345.78 + 7895.687 8364.917 That looks fine, but now try this: ? 12123123.45 + 345.78 + 7895.687 12131364.9 If you took the time to add this up by hand, you would get a different result. What's going on here? Even though the computer has a lot of power, there's a limit to the numbers it can handle. The Commodore 64 can work with numbers containing 10 digits. However when a number is printed, only nine digits are displayed. So in our example, the result was "rounded" to fit in the proper range. The Commodore 64 rounds up when the next digit is five or more; it rounds down when the next digit is four or less. Numbers between 0.01 and 999,999,999 are printed using standard notation. Numbers outside this range are printed using scientific notation. Scientific notation is just a process of expressing a very large or small number as a power of 10. If you type: ? 123000000000000000 1.23E+17 This is the same as 1.23 * 10^17 and is used just to keep things tidy. There is a limit to the numbers the computer can handle, even in scientific notation. The limits are: Largest: +/- 1.70141183E+38 Smallest (different from zero): +/- 2.93873588-39 2.5. Precedence If you tried to perform some mixed calculations different from the examples we showed earlier, you might not have gotten the results that you expected. The reason is that the computer performs calculations in a certain order. In this calculation: 20 + 8 / 2 you can't tell whether the answer should be 24 or 14 until you know in which order to perform the calculations. If you add 20 to 8 divided by 2 (or 4), then the result is 24. But, if you add 20 plus 8 and then divide by 2 the answer is 14. Try the example and see what result you get. The reason you got 24 is because the Commodore 64 performs calculations left to right according to the following: First : - minus sign indicating negative numbers Second: ^ exponentiation, left to right Third : */ multiplication and divisions, left to right Fourth: +- addition and subtraction, left to right Follow along according to the order of precedence, and you will see that it the above example the division was performed first and then the addition to get a result of 24. Make up some problems of your own and see if you can follow along and predict the results according to the rules set down above. There's also an easy way to alter the precedence process by using parentheses to set off which operations you want performed first. For example, if you want to divide 35 by 5-plus-2 you type: ? 35 / 5 + 2 9 you will get 35 divided by 5 with 2 added to the answer, which is not what you intended at all. To get what you really wanted, try this: ? 35 / (5 + 2) 5 What happens now is that the computer evaluates what is contained in the parentheses first. If there are parentheses within parentheses, the innermost parentheses are evaluated first. Where there are a number of parentheses on a line, such as: ? (12 + 9) * (6 + 1) 147 the computer evaluates them left to right. Here 21 would be multiplied by 7 for the result 147. 2.6. Combining Things Even though we've spent a lot of time in areas that might not seem very important, the details presented here will make more sense once you start to program, and will prove invaluable. To give you an idea how things fit in place, consider the following: how could you combine the two types of PRINT statements we've examined so far to print something more meaningful on the screen? We know that by enclosing something within quote marks prints that information on the screen exactly as it was entered, and by using math operators, calculations can be performed. So why not combine the two types of PRINT statements like this: ? "5 * 9 = "; 5 * 9 (Semicolon means no space) 5 * 9 = 45 Even though this might seem a bit redundant, what we've done is simply use both types of print statements together. The first part prints "5 * 9 =" exactly as it was typed. The second part does the actual work and prints the result, with the semicolon separating the message part of the statement from the actual calculation. You can separate the parts of a mixed PRINT statement with punctuation for various formats. Try a comma in place of the semicolon and see what happens. For the curious, the semicolon causes the next part of the statement to be printed immediately after the previous part, without any spaces. The comma does something different. Even though it is an acceptable separator, it spaces things out more. If you type: ? 2,3,4,5,6 <-------------------------------- Hit <RETURN> 2 3 4 5 6 the numbers will be printed across the screen and down on to the next line. The Commodore 64's display is organized into 4 areas of 10 columns each. The comma tabs each result into the next available area. Since we asked for more information to be printed than would fit on one line, (we tried to fit five 10-column areas on one line) the last item was moved down to the next line. The basic difference between the comma and semicolon in formatting PRINT statements can be used our advantage when creating more complex displays: it allow us to create some sophisticated results very easily. 3. BEGINNING BASIC PROGRAMMING 3.1. The Next Step Up to now we've performed some simple operations by entering a single line of instructions into the computer. Once <RETURN> was depressed, the operation that we specified was performed immediately. This is called the IMMEDIATE or CALCULATOR mode. But to accomplish anything significant, we must be able to have the computer operate with more than a single line statement. A number of statements combined together is called a PROGRAM and allows you to use the full power of the Commodore 64. To see how easy it is to write your first Commodore 64 program, try this: Clear the screen by holding down the <SHIFT> key, and then depressing the <CLR/HOME> key. Type NEW and press <RETURN>. (This just clears out any numbers that might have been left in the computer from your experimenting.) Now type the following exactly as shown (remember to hit <RETURN> after each line) 10 ? "COMMODORE 64" 20 GOTO 10 Now, type RUN and hit <RETURN> -- watch what happens. Your screen will come alive with COMMODORE 64. After you've finished watching the display, hit <RUN/STOP> to stop the program. COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 BREAK IN 10 READY A number of important concepts were introduced in this short program that are the basis for all programming. Notice that here we preceded each statement with a number. This LINE number tells the computer in what order to work with each statement. These numbers are also a reference point, in case the program needs to get back to a particular line. Line numbers can be any whole number (integer) value between 0-63999. 10 PRINT "COMMODORE 64" ^ ^ | |-- Statement | +------- Line number It is good programming practice to number lines in increments of 10 -- in case you need to insert some statements later on. Besides PRINT, our program also used another BASIC command, GOTO. This instructs the computer to go directly to a particular line and perform it, then continue from that point. +--> 10 PRINT "COMMODORE 64" | +--- 20 GOTO 10 In our example, the program prints the message in line 10, goes to the next line (20), which instructs it to go back to line 10 and print the message over again. Then the cycle repeats. Since we didn't give the computer a way out of this loop, the program will cycle endlessly, until we physically stop it with the <RUN/STOP> key. Once you've stopped the program, type: LIST. Your program will be displayed, intact, because it's still in the computer's memory. Notice, too, that the computer converted the '?' into PRINT for you. The program can now be changed, saved, or run again. Another important difference between typing something in the immediate mode and writing a program is that once you execute and clear the screen of an immediate statement, it's lost. However, you can always get a program back by just typing LIST. By the way, when it comes to abbreviations don't forget that the computer may run out of space on a line if you use too many. 3.2. Editing Tips If you make a mistake on a line, you have a number of editing options. 1. You can retype a line anytime, and the computer will automatically substitute the new line for the old one. 2. An unwanted line can be erased by simply typing the line number and <RETURN>. 3. You can also easily edit an existing line, using the cursor keys and editing keys. Suppose you made a typing mistake in a line of the example. To correct it without retyping the entire line, try this: Type LIST, then using the <SHIFT> and <CRSR UP/DOWN> keys together move the cursor up until it is positioned on the line that needs to be changed. Now, use the cursor-right key to move the cursor to the character you want to change, typing the change over the old character. Now hit <RETURN> and the corrected line will replace the old one. If you need more space on the line, position the cursor where the space is needed and hit <SHIFT> and <INST/DEL> at the same time and a space will open up. Now just type in the additional information and hit <RETURN>. Likewise, you can delete unwanted characters by placing the cursor to the right of the unwanted character and hitting the <INST/DEL> key. To verify that changes were entered, type LIST again, and the corrected program will be displayed! And lines don't have to be entered in numerical order. The computer will automatically place them in the proper sequence. Try editing our sample program on Section 3.1 by changing line 10 and adding a comma to the end of the line. Then RUN the program again. 10 PRINT "COMMODORE", Don't forget to move the cursor past line 20 before you RUN the program. COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE COMMODORE BREAK IN 10 READY 3.3. Variables Variables are some of the most used features of any programming language, because variables can represent much more information in the computer. Understanding how variables operate will make computing easier and allow us to accomplish feats that would not be possible otherwise. Imagine a number of boxes within the computer that can hold a number or a string of text characters. Each of these boxes is to be labeled with a name that we choose. That name is called a variable and represents the information in the respective box. For example, if we say: 10 X% = 15 20 X = 23.5 30 X$ = "THE SUM OF X% + X =" The computer might represent the variables like this: X% 15 X 23.5 X$ THE SUM OF X% + X = A variable name represents the box, or memory location, where the current value of the variable is stored. As you can see, we can assign either an integer number, floating point number, or a text string to a variable. The '%' symbol following a variable name indicates the variable will represent an integer number. The following are valid integer variable names: A% X% A1% NM% The '$' following the variable name indicates the variable will represent a text string. The following are examples of string variables: A$ X$ MI$ Floating point variables follow the same format, with the type indicator: A1 X Y MI In assigning a name to a variable there are a few things to keep in mind. First, a variable name can have one or two characters. The first character must be an alphabetic character from A to Z; the second character can be either alphabetic or numeric (in the range 0 to 9). A third character can be included to indicate the type of variable (integer or text string), '%' or '$'. You can use variable names having more than two alphabetic characters, but only the first two are recognized by the computer. So PA and PARTNO are the same and would refer to the same variable box. The last rule for variable names is simple: they can't contain any BASIC keywords (reserved words) such as GOTO, RUN, etc. Refer back to Appendix D for a complete list of BASIC reserved words. To see how variables can be put to work, type in the complete program that we introduced earlier and RUN it. Remember to hit <RETURN> after each line in the program. NEW 10 X% = 15 20 X = 23.5 30 X$ = "THE SUM OF X% + X =" 40 PRINT "X% = "; X%, "X = "; X 50 PRINT X$; X% + X If you did everything as shown, you should get the following result printed on the screen. RUN X% = 15 X = 23.5 THE SUM OF X% + X = 38.5 READY We've put together all the tricks learned so far to format the display as you see it and print the sum of the two variables. In lines 10 and 20 we assigned an integer value to X% and assigned a floating point value to X. This puts the number associated with the variable in its box. In line 30, we assigned a text string to X$. Line 40 combines the two types of PRINT statements to print a message and the actual value of X% and X. Line 50 prints the text string assigned to X$ and the sum of X% and X. Note that even though X is used as part of each variable name, the identifiers '%' and '$' make X%, X, and X$ unique, thus representing three distinct variables. But variables are much more powerful. If you change their value, the new value replaces the original value in the same box. This allows you to write a statement like: X = X + 1 This would never be accepted in normal algebra, but is one of the most used concepts in programming. It means: take the current value of X, add one to it and place the new sum into the box representing X. 3.4. IF ... THEN Armed with the ability to easily update the value of variables, we can now try a program such as: NEW 10 CT = 0 20 ? "COMMODORE 64" 30 CT = CT + 1 40 IF CT < 5 THEN 20 50 END RUN COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 What we've done is introduce two new BASIC commands, and provided some control over our runaway little print program introduced at the start of this chapter. IF ... THEN adds some logic to the program. If says IF a condition holds true THEN do something. IF the condition no longer holds true, THEN do the next line in the program. A number of conditions can be set up in using an IF ... THEN statement: SYMBOL MEANING < Less Than > Greater Than = Equal To <> Not Equal To >= Greater Than or Equal To <= Less Than or Equal To The use of any one of these conditions is simple, yet surprisingly powerful. 10 CT = 0 +--> 20 ? "COMMODORE 64" | 30 CT = CT + 1 +-<- 40 IF CT < 5 THEN 20 | ! 50 END In the sample program, we've set up a "loop" that has some constrains placed on it by saying: IF a value is less than some number THEN do something. Line 10 sets CT (CounT) equal to 0. Line 20 prints our message. Line 30 adds one to the variable CT. This line counts how many times we do the loop. Each time the loop is executed, CT goes up by one. Line 40 is our control line. If CT is less than 5, meaning we've executed the loop less than 5 times, the program goes back to line 20 and prints again. When CT becomes equal to 5 -- indicating 5 COMMODORE 64's were printed -- the program goes to line 50, which signals to END the program. Try program and see what we mean. By changing the CT limit in line 40 you can have any number of lines printed. IF ... THEN has a multitude of other uses, which we'll see in future examples. 3.5. FOR ... NEXT Loops There is a simpler, and preferred way to accomplish what we did in the previous example by using a FOR ... NEXT loop. Consider the following: NEW 10 FOR CT = 1 TO 5 20 ? "COMMODORE 64" 30 NEXT CT RUN COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 COMMODORE 64 As you can see, the program has become much smaller and more direct. CT starts at 1 in line 10. Then, line 20 does some printing. In line 30 CT is incremented by 1. The NEXT statement in line 30 automatically sends the program back to line 10 where the FOR part of the FOR ... NEXT statement is located. This process will continue until CT reaches the limit you entered. The variable used in a FOR ... NEXT loop can be incremented by smaller amounts than 1, if needed. Try this: NEW 10 FOR NB = 1 TO 10 STEP .5 20 PRINT NB, 30 NEXT NB RUN 1 1.5 2 2.5 3 3.5 4 4.5 5 5.5 6 6.5 7 7.5 8 8.5 9 9.5 10 If you enter and run this program, you'll see the numbers from 1 to 10, by .5, printed across the display. All we're doing here is printing the values that NB assumes as it goes through the loop. You can even specify whether the variable is increasing or decreasing. Substitute the following for line 10: 10 FOR NB = 10 TO 1 STEP -.5 and watch the opposite occur, as NB goes from 10 to 1 in descending order. 4. ADVANCED BASIC 4.1. Introduction The next few chapters have been written for people who have become relatively familiar with the BASIC programming language and the concepts necessary to write more advanced programs. For those of you who are just staring to learn how to program, you may find some of the information a bit too technical to understand completely. But take heart ... because for these two fun chapters, SPRITE GRAPHICS and CREATING SOUND, we've set up some simple examples that are written for the new user. The examples will give you a good idea of how to use the sophisticated sound and graphics capabilities available on your COMMODORE 64. If you decide that you want to learn more about writing programs in BASIC, we've put a bibliography (Appendix N) in the back of this manual. If you are already familiar with BASIC programming, these chapters will help you get started with advanced BASIC programming techniques. More detailed information can be found in the COMMODORE 64 PROGRAMMER'S REFERENCE MANUAL, available through your local Commodore dealer. 4.2. Simple Animation Let's exercise some of the Commodore 64's graphic capabilities by putting together what we've seen so far, together with a few new concepts. If you're ambitious, type in the following program and see what happens. You will notice that within the print statements we can also include cursor controls and screen commands. When you see something like {CRSR LEFT} in a program listing, hold the <SHIFT> key and hit the <CRSR LEFT/RIGHT> key. The screen will show the graphic representation of a cursor left (two vertical reversed bars). In the same way, pressing <SHIFT> and <CLR/HOME> shows as a reversed heart. NEW 10 REM BOUNCING BALL 20 PRINT "{CLR/HOME}" 25 FOR X=1 to 10 : PRINT "{CRSR DOWN}" : NEXT 30 FOR BL=1 to 40 40 PRINT" O{CRSR LEFT}"; : REM (O is a SHIFT-Q) 50 FOR TM=1 TO 5 60 NEXT TM 70 NEXT BL 75 REM MOVE BALL RIGHT TO LEFT 80 FOR BL=40 TO 1 STEP -1 90 PRINT" {CRSR LEFT}{CRSR LEFT}O{CRSR LEFT}"; 100 FOR TM=1 TO 5 110 NEXT TM 120 NEXT BL 130 GOTO 20 NOTES: The ':' in lines 25 and 40 indicates new command. The spaces in lines 40 and 90 are intentional. TIP: All words in this text will be completed on one line. However, as long as you don't hit <RETURN> your 64 will automatically move to the next line even in the middle of a word. The program will display a bouncing ball moving from left to right, and back again, across the screen. If we look at the program closely, you can see how this feat was accomplished. 10 REM BOUNCING BALL +----> 20 PRINT "{CLR/HOME}" | +--> 25 FOR X=1 to 10 : PRINT "{CRSR DOWN}" : NEXT | | 30 FOR BL=1 to 40 | | 40 PRINT" O{CRSR LEFT}"; : REM (O is a SHIFT-Q) | | +> 50 FOR TM=1 TO 5 | | +- 60 NEXT TM | +--- 70 NEXT BL | 75 REM MOVE BALL RIGHT TO LEFT | +--> 80 FOR BL=40 TO 1 STEP -1 | | 90 PRINT" {CRSR LEFT}{CRSR LEFT}O{CRSR LEFT}"; | | +> 100 FOR TM=1 TO 5 | | +- 110 NEXT TM | +--- 120 NEXT BL +----- 130 GOTO 20 Line 10 is a REMark that just tells what the program does; it has no effect on the program itself. Line 20 clears the screen of any information. Line 25 PRINTs 10 cursor-down commands. This just positions the ball in the middle of the screen. If line 25 was eliminated the ball would move across the top line of the screen. Line 30 sets up a loop for moving the ball the 40 columns from the left to right. Line 40 does a lot of work. It first prints a space to erase the previous ball positions, then it prints the ball, and finally it performs a cursor-left to get everything ready to erase the current ball position again. The loop set up in lines 50 and 60 slows the ball down a bit by delaying the program. Without it, the ball would move too fast to see. Line 70 completes the loop that prints balls on the screen, set up in line 30. Each time the loop is executed, the ball moves another space to the right. As you notice from the illustration, we have set up a loop within a loop. This is perfectly acceptable. The only time you get in trouble is when the loops cross over each other. It's helpful in writing programs to check yourself as illustrated here to make sure the logic of a loop is correct. To see what would happen if you cross a loop, reverse the statements in lines 60 and 70. You will get an error because the computer gets confused and cannot figure out what's going on. Lines 80 through 120 just reverse the steps in the first part of the program, and move the ball from right to left. Line 90 is slightly different from line 40 because the ball is moving in the opposite direction (we have to erase the ball to the right and move to the left). And when that's all done the program goes back to line 20 to start the whole process over again. Pretty neat! To stop the program hold down <RESTORE> and hit <RUN/STOP>. For a variation on the program, edit line 40 to read: 40 PRINT"O"; To make the O, hold SHIFT key down and hit the letter "Q" Run the program and see what happens now. Because we left out the cursor control, each ball remains on the screen until erased by the ball moving right to left in the second part of the program. 4.3. INPUT Up to now, everything within a program has been set before it is run. Once the program was started, nothing could be changed. INPUT allows us to pass new information to a program as it is running and have that new information acted upon. To get an idea of how INPUT works, type NEW <RETURN> and enter this short program: 10 INPUT A$ 20 PRINT "YOU TYPED: ";A$ 30 PRINT 40 GOTO 10 RUN ? COMMODORE 64 <--------------- You typed YOU TYPED: COMMODORE 64 <----- Computer responded What happens when you run this simple program. A question mark will appear, indicating that the computer is waiting for you to type something. Enter any character, or group of characters, from the keyboard and hit <RETURN>. The computer will then respond with "YOU TYPED:" followed by the information you entered. This may seem very elementary, but imagine what you can have the computer do with any information you enter. You can INPUT either numeric or string variables, and even have the INPUT statement prompt the user with a message. The format of INPUT is: INPUT "PROMPT MESSAGE";VARIABLE ^ +---- Prompt must be 38 characters or less Or, just: INPUT VARIABLE NOTE: To get out of this program hold down the <RUN/STOP> and <RESTORE> keys. The following program is not only useful, but demonstrates a lot of what has been presented so far, including the new input statement. NEW 1 REM TEMPERATURE CONVERSION PROGRAM 5 PRINT "{CLR/HOME}" 10 PRINT "CONVERT FROM FAHRENHEIT OR CELSIUS (F/C): ": INPUT A$ 20 IF A$ = "" THEN 10 <----------------------- No space within quotes 30 IF A$ = "F" THEN 100 40 IF A$ <> "C" THEN 10 50 INPUT "ENTER DEGREES CELSIUS: ";C 60 F = (C*9)/5+32 70 PRINT C;" DEG. CELSIUS ="; F ;"DEG. FAHRENHEIT" 80 PRINT 90 GOTO 10 100 INPUT "ENTER DEGREES FAHRENHEIT: ";F <- Don't forget to hit RETURN 110 C = (F-32)*/5/9 120 PRINT F;" DEG. FAHRENHEIT ="; C ;"DEG. CELSIUS" 130 PRINT 140 GOTO 10 If you entered and run this program, you'll see INPUT in action. Line 10 uses the input statement to not only gather information, but also print our prompt. Also notice that we can ask for either a number or string (by using a numeric or string variable). Lines 20, 30, and 40 do some checks on what is typed in. In line 20, if nothing is entered (just <RETURN> is hit), then the program goes back to line 10 and requests the input again. In line 30, if F is typed, you know the user wants to convert a temperature in degrees Fahrenheit to Celsius, so the program branches to the part that does that conversion. Line 40 does one more check. We know there are only two valid choices the user can enter. To get to line 40, the user must have typed some character other than F. Now, a check is made to see if that character is a C; if not, the program requests input again. This may seem like a lot of detail, but it is good programming practice. A user not familiar with the program can become very frustrated if it does something strange because a mistake was made entering information. Once we determine what type of conversion to perform, the program does the calculation and prints out the temperature entered and the converted temperature. The calculation is just straight math, using the established formula for temperature conversion. After the calculation is finished and answer printed, the program loops back and starts over. After running, the screen might look like this: CONVERT FROM FAHRENHEIT OR CELSIUS (F/C): ? F ENTER DEGREES FAHRENHEIT: 32 32 DEG. FAHRENHEIT = 0 DEG. CELSIUS CONVERT FROM FAHRENHEIT OR CELSIUS (F/C): ? After running the program, make sure to save it on disk or tape. This program, as well as others presented throughout the manual, can form the base of your program library. 4.4. GET GET allows you to input one character at a time from the keyboard without hitting <RETURN>. This really speeds entering data in many applications. Whatever key is hit is assigned variable to the variable you specify with GET. The following routine illustrates how GET works: NEW 1 PRINT "{CLR/HOME}" 10 GET A$: IF A$ = "" THEN 10 20 PRINT A$; ^ 30 GOTO 10 |-------------- No SPACE here If you RUN the program, the screen will clear and each time you hit a key, line 20 will print it on the display, and then GET another character. It is important to note that the character entered will not be displayed unless you specifically PRINT it to the screen, as we've done here. The second statement on line 10 is also important. GET continually works, even if no key is pressed (unlike INPUT that waits for a response), so the second part of this line continually checks the keyboard until a key is hit. See what happens if the second part of line 10 is eliminated. To stop this program you can hit the <RUN/STOP> and <RESTORE> keys. The first part of the temperature conversion program could easily be rewritten to use GET. LOAD the temperature conversion program, and modify lines 10,20 and 40 as shown: 10 PRINT "CONVERT FROM FAHRENHEIT OR CELSIUS (F/C) ?" 20 GET A$: IF A$ = "" THEN 20 <---------------- No space within quotes 30 IF A$ <> "C" THEN 20 This modification will make the program operate smoother, as nothing will happen unless the user types in one of the desired responses to select the type of conversion. Once this change is made, make sure you save the new version of the program. 4.5. Random Numbers and Other Functions The Commodore 64 contains a number of functions that are used to perform special operations. Functions could be thought of as built-in programs included in BASIC. But rather than typing in a number of statements each time you need to perform a specialized calculation, you just type the command for the desired function and the computer does the rest. Many times when designing a game or educational program, you need to generate a random number, to simulate the throw of dice, for example. You could certainly write a program that would generate these numbers, but an easier way to call upon the RaNDom number function. To see what RND actually does, try this short program: NEW 10 FOR X = 1 TO 10 20 PRINT RND(1), <------------ If you leave out the comma, your list 30 NEXT of numbers will appear as 1 column After running the program, you will see a display like this: .789280697 .664673958 .256373663 .0123442287 .682952381 3.90587279E-04 .402343724 .879300926 .158209063 .245596701 Your numbers don't match? Well, if they did we would all be in trouble, as they should be completely random! Try running the program a few more times to verify that the results are always different. Even if the numbers don't follow any pattern, you should start to notice that some things remain the same every time the program is run. First, the results are always between 0 and 1, but never equal to 0 or 1. This will certainly never do if we want to simulate the random toss of dice, since we're looking for numbers between 1 and 6. The other important feature to look for is that we are dealing with real numbers (with decimal places). This could also be a problem since whole (integer) numbers are often needed. There are a number of simple ways to produce numbers from the RND function in the range desired. Replace line 20 with following and run the program again: 20 PRINT 6*RND(1), RUN 3.60563664 4.53660853 5.47238963 8.40850227 3.19265054 4.39547668 3.16331095 5.50620749 9.32527884 4.17090293 That cured the problem of not having results larger than 1, but we still have the decimal part of the result to deal with. Now, another function can be called upon. The INTeger function converts real numbers into integer values. Once more, replace line 20 with the following and run the program to see the effect of the change: 20 PRINT INT(6*RND(1)), RUN 2 3 1 0 2 4 5 5 0 1 That took care of a lot, getting us closer to our original goal of generating random numbers between 1 and 6. If you examine closely what we generated this last time, you'll find that the results range from 0 to 5, only. As a last step, add a one to the statement, as follows: 20 PRINT INT(6*RND(1))+1, Now, we have achieved the desired results. In general, you can place a number, variable, or any BASIC expression within the parentheses of the INT function. Depending on the range desired, you just multiply the upper limit by the RND function. For example, to generate random numbers between 1 and 25, you could type: 20 PRINT INT(25*RND(1))+1, The general formula for generating a set of random numbers in a certain range is: NUMBER=INT(LOWER+(UPPER-LOWER+1)*RND(1)) 4.6. Guessing Game Since we've gone to some lengths to understand random numbers, why not put this information to use? The following game not only illustrates a good use of random numbers, but also introduces some additional programming theory. In running this program, a random number, NM, will be generated. NEW 1 REM NUMBER GUESSING GAME 2 PRINT "{CLR/HOME}" 5 INPUT "ENTER UPPER LIMIT FOR GUESS ";LI 10 NM = INT(LI*RND(1))+1 15 CN = 0 20 PRINT "I'VE GOT THE NUMBER." : PRINT 30 INPUT "WHAT'S YOUR GUESS "; GU 35 CN = CN + 1 40 IF GU > NM THEN PRINT "MY NUMBER IS LOWER." : PRINT : GOTO 30 50 IF GU < NM THEN PRINT "MY NUMBER IS HIGHER.": PRINT : GOTO 30 60 PRINT "GREAT! YOU GOT MY NUMBER" 65 PRINT "IN ONLY"; CN ;"GUESSES." : PRINT 70 PRINT "DO YOU WANT TO TRY ANOTHER (Y/N) ?"; 80 GET AN$ : IF AN$ = "" THEN 80 90 IF AN$ = "Y" THEN 2 100 IF AN$ <> "N" THEN 70 110 END You can specify how large the number will be at the start of the program. Then, it's up to you to guess what the number is. A sample run follows along with an explanation. ENTER UPPER LIMIT FOR GUESS ? 25 I'VE GOT THE NUMBER. WHAT'S YOUR NUMBER GUESS ? 15 MY NUMBER IS HIGHER. WHAT'S YOUR NUMBER GUESS ? 20 MY NUMBER IS LOWER. WHAT'S YOUR NUMBER GUESS ? 19 GREAT! YOU GOT MY NUMBER IN ONLY 3 GUESSES. DO YOU WANT TO TRY ANOTHER (Y/N) ? IF/THEN statements compare your guess to the number generated. Depending on your guess, the program tells you whether your guess was higher or lower than the random number generated. From the formula given for determining random number range, see if you can add a few lines to the program that allow the user to also specify the lower range of numbers generated. Each time you make a guess, CN is incremented by 1 to keep track of the number of guesses. In using the program, see if you can use good reasoning to guess a number in the least number of tries. When you get the right answer, the program prints out the "GREAT! YOU GOT MY NUMBER" message, along with the number of tries it took. You can then start the process over again. Remember, the program generates a new random number each time. PROGRAMMING TIPS: In line 40 and 50, a colon is used to separate multiple statements on a single line. This not only saves typing, but in long programs will conserve memory space. Also notice in the IF/THEN statements on the same two lines, we instructed the computer to PRINT something, rather than immediately branching to some other point in the program. The last point illustrates the reason behind using line numbers in increments of 10. After the program was written, we decided to add the count part. By just adding those new lines at the end of the program, numbered to fall between the proper existing lines, the program was easily modified. 4.7. Your Roll The following program simulates the throw of two dice. You can enjoy it as it stands, or use it as part of a larger game. 5 PRINT "CARE TO TRY YOUR LUCK?" 10 PRINT "RED DICE =";INT(6*RND(1))+1 20 PRINT "WHITE DICE =";INT(6*RND(1))+1 30 PRINT "HIT SPACE BAR FOR ANOTHER ROLL" : PRINT 40 GET A$ : IF A$ = "" THEN 40 50 IF A$ = CHR$(32) THEN 10 From what you've learned about random numbers and BASIC, see if you can follow what is going on. 4.8. Random Graphics As a final note on random numbers, and as an introduction to designing graphics, take a moment to enter and run this neat little program: 10 REM MAZE 20 PRINT "{CLR/HOME}" 30 PRINT CHR$(205.5+RND(1)); 40 GOTO 20 As you may have expected, line 20 is the key here. Another function, CHR$ (Character String), gives you a character, based on a standard code number from 0 to 255. Every character the Commodore 64 can print is encoded this way (see Appendix F). To quickly find out the code for any character, just type: PRINT ASC("X") where X is the character you're checking (this can be any printable character, including graphics). The response is the code for the character you typed. As you probably figured out, "ASC" is another function, which returns the standard "ASCII" code for the character you typed. You can now print that character by typing: PRINT CHR$(X) If you try typing: PRINT CHR$(205); CHR$(206) you will see the two right side graphic characters on the M and N keys. These are two characters that the program is using for the maze. By using the formula 205.5 + RND(1) the computer will pick a random number between 205.5 and 206.5. There is a fifty-fifty chance of the number being above or below 206. CHR$ ignores any fractional values, so half the time the character with code 205 is printed and the remaining time code 206 is displayed. If you'd like to experiment with this program, try changing 205.5 by adding or subtracting a couple tenths from it. This will give either character a greater chance of being selected. 5. ADVANCED COLOR AND GRAPHIC COMMANDS 5.1. Color and Graphics Up to now we've explored some of the sophisticated computing capabilities of the Commodore 64. But one of its most fascinating features is an outstanding ability to produce color and graphics. You've seen a quick example of graphics in the "bouncing ball" and "maze" programs. But these only touched on the power you command. A number of new concepts will be introduced in this section to explain graphic and color programming and show how you can create your own games and advanced animation. Because we've concentrated on the computing capabilities of the machine, all the displays we've generated so far were a single color (light blue text on a dark blue background, with a light blue border). In this chapter we'll see how to add color to programs and control all those strange graphic symbols on the keyboard. 5.2. PRINTing Colors As you discovered if you tried the color alignment test in Chapter 1, you can change text colors by simply holding the <CTRL> key and one of the color keys. This works fine in the immediate mode, but what happens if you want to incorporate color changes in your programs? When we showed the "bouncing ball" program, you saw how keyboard commands, like cursor movement, could be incorporated within PRINT statements. In a like way, you can also add text color changes to your programs. You have a full range of 16 text colors to work with. Using <CTRL> key and a number key, the following colors are available: 1 2 3 4 5 6 7 8 Black White Red Cyan Purple Green Blue Yellow If you hold down the <C=> key along with the appropriate number key, these additional eight colors can be used: 1 2 3 4 5 6 7 8 Orange Brown Lt.Red Gray 1 Gray 2 Lt.Green Lt.Blue Gray 3 Type NEW, and experiment with the following. Hold down the <CTRL> key and at the same time hit the <1> key. Next, hit the <R> key without holding down the <CTRL> key. Now, while again depressing the <CTRL> key at the same time hit the <2> key. Release the <CTRL> key and hit the <A> key. Move through the numbers, alternating with the letters, and type out the word RAINBOW as follows: 10 PRINT " R A I N B O W" ^ ^ ^ ^ ^ ^ ^ <CTRL><1 2 3 4 5 6 7> RUN RAINBOW Just as cursor controls show as graphic characters within the quote marks of print statements, color controls are also represented as graphic characters. In the previous example, when you held down <CTRL> and typed <3> a "{Pound Sign}" was displayed. <CTRL> <7> displayed a "<-". Each color control will display its unique graphic code when used in this way. The table shows the graphic representations of each printable color control. KEYBOARD COLOR DISPLAY KEYBOARD COLOR DISPLAY --------------------------------------------------------------------- <CTRL><1> BLACK <C=><1> ORANGE <CTRL><2> WHITE <C=><2> BROWN <CTRL><3> RED <C=><3> LT. RED <CTRL><4> CYAN <C=><4> GRAY 1 <CTRL><5> PURPLE <C=><5> GRAY 2 <CTRL><6> GREEN <C=><6> LT. GREEN <CTRL><7> BLUE <C=><7> LT. BLUE <CTRL><8> YELLOW <C=><8> GRAY 3 Even though the PRINT statement may look a bit strange on the screen, when you RUN the program, only the text will be displayed. And it will automatically change colors according to the color controls you placed in the print statement. Try a few examples of your own, mixing any number of colors within a single PRINT statement. Remember, too, you can use the second set of text colors by using the Commodore key and the number keys. TIP: You will notice after running a program with color or mode (reverse) changes, that the "READY." prompt and any additional text you type is the same as the last color or mode change. To get back to the normal display, remember to depress: <RUN/STOP> and <RESTORE>. 5.3. Color CHR$ Codes Take a brief look at Appendix F, then turn back to this section. You may have noticed in looking over the list of CHR$ codes in Appendix F that each color (as well as most other keyboard controls, such as cursor movement) has a unique code. These codes can be printed directly to obtain the same results as typing CTRL and the appropriate key within the PRINT statement. For example, try this: NEW 10 PRINT CHR$(147) : REM {CLR/HOME} 20 PRINT CHR$(30); "CHR$(30) CHANGES ME TO?" RUN CHR$(30) CHANGES ME TO? The text should now be green. In many cases, using the CHR$ function will be much easier, especially if you want to experiment with changing colors. The following program is a different way to get a rainbow of colors. Since there are a number of lines that are similar (40-110) use editing keys to save a lot of typing. See the notes after the listing to refresh your memory on the editing procedures. NEW 1 REM AUTOMATIC COLOR BARS 5 PRINT CHR$(147) : REM CHR$(147) = CLR/HOME 10 PRINT CHR$(18); " "; : REM REVERSE BAR 20 CL = INT(8*RND(1))+1 30 ON CL GOTO 40,50,60,70,80,90,100,110 40 PRINT CHR$(5); : GOTO 10 50 PRINT CHR$(28); : GOTO 10 60 PRINT CHR$(30); : GOTO 10 70 PRINT CHR$(31); : GOTO 10 80 PRINT CHR$(144); : GOTO 10 90 PRINT CHR$(156); : GOTO 10 100 PRINT CHR$(158); : GOTO 10 110 PRINT CHR$(159); : GOTO 10 Type lines 1 through 40 normally. Your display should look like this: 1 REM AUTOMATIC COLOR BARS 5 PRINT CHR$(147) : REM CHR$(147) = CLR/HOME 10 PRINT CHR$(18); " "; : REM REVERSE BAR 20 CL = INT(8*RND(1))+1 30 ON CL GOTO 40,50,60,70,80,90,100,110 40 PRINT CHR$(5); : GOTO 10 EDITING NOTES Use the <CRSR UP> key to position the cursor on line 40. Then type 5 over the 4 of 40. Next, use the <CRSR RIGHT> key to move over to the 5 in the CHR$ parentheses. Hit <SHIFT> <INST/DEL> to open up a space and type '28'. Now just hit <RETURN> with the cursor anywhere on the line. The display should now look like this: 1 REM AUTOMATIC COLOR BARS 5 PRINT CHR$(147) : REM CHR$(147) = CLR/HOME 10 PRINT CHR$(18); " "; : REM REVERSE BAR 20 CL = INT(8*RND(1))+1 30 ON CL GOTO 40,50,60,70,80,90,100,110 50 PRINT CHR$(28); : GOTO 10 Don't worry. Line 40 is still there. LIST the program and see. Using the same procedure, continue to modify the last line with a new line number and CHR$ code until all the remaining lines have been entered. See, we told you the editing keys would come in handy. As a final check, list the entire program to make sure all the lines were entered properly before you RUN it. Here is a short explanation of what's going on. You've probably figured out most of the color bar program by now except for some strange new statement in line 30. But let's quickly see what the whole program actually does. Line 5 prints the CHR$ code for CLR/HOME. Line 10 turns reverse type on and prints 5 spaces, which turn out to be a bar, since they're reversed. The first time through the program the bar will be light blue, the normal text color. Line 20 uses our workhorse, the random function to select a random color between 1 and 8. Line 30 contains a variation of the IF ... THEN statement which is called ON ... GOTO. ON ... GOTO allows the program to choose from a list of line numbers to go to. If the variable (in this case CL) has a value of 1, the first line number is the one chosen (here 40). If the value is 2, the second number in the list is used, etc. Lines 40-110 just convert our random key colors to the appropriate CHR$ code for that color and return the program to line 10 to PRINT a section of the bar in that color. Then the whole process starts over again. See if you can figure out how to produce 16 random numbers, expand ON ... GOTO to handle them, and add the remaining CHR$ codes to display the remaining 8 colors. 5.4. PEEKs and POKEs No, we're not talking about jobbing the computer, but we will be able to "look around" inside the machine and "stick" things in there. Just as variables could be thought of as a representation of "boxes" within the machine where you placed your information, you can also think of some specially defined "boxes" within the computer that represent specific memory locations. The Commodore 64 looks at these memory locations to see what the screen's background and border color should be, what characters are to be displayed on the screen -- and where -- and a host of other tasks. By placing, "POKEing", a different value into the proper memory location, we can change colors, define and move objects, and even create music. These memory locations could be represented like this: +-----------+ +-----------+ +-----------+ +-----------+ | 53280 | | 53281 | | 53282 | | 53283 | | X | | Y | | | | | +-----------+ +-----------+ +-----------+ +-----------+ BORDER BACKGROUND COLOR COLOR Above we showed just four locations, two of which control the screen and background colors. Try typing this: POKE 53281,7 <RETURN> The background color of the screen will change to yellow because we placed the value '7' -- for yellow -- in the location that controls the background color of the screen. Try POKEing different values into the background color location, and see what results you get. You can POKE any value between 0 and 255, but only 0 through 15 will work. The actual values to POKE for each color are: +-----------------------------------------------------------------------+ | 0 BLACK 8 ORANGE | | 1 WHITE 9 BROWN | | 2 RED 10 Light RED | | 3 CYAN 11 GRAY 1 | | 4 PURPLE 12 GRAY 2 | | 5 GREEN 13 Light GREEN | | 6 BLUE 14 Light BLUE | | 7 YELLOW 15 GRAY 3 | +-----------------------------------------------------------------------+ Can you think of a way to display the various background and border combinations? The following may be of some help: NEW 10 FOR BA = 0 TO 15 20 FOR BO = 0 TO 15 30 POKE 53280, BO 40 POKE 53281, BA 50 FOR X = 1 TO 2000 : NEXT X 60 NEXT BO : NEXT BA Two simple loops were set up to POKE various values to change the background and border colors. The DELAY loop in line 50 just slows things down a bit. For the curious, try: ? PEEK(53280) AND 15 You should get a value of 15. This is the last value BORDER was given and makes sense because both the background and border colors are GRAY (value 15) after the program is run. By entering AND 15 you eliminate all other values except 1-15, because of the way color codes are stored in the computer. Normally you would expect to find the same value that was last POKEd in the location. In general, PEEK lets us examine a specific location and see what value is presently there. Can you think of a one line addition to the program that will display the value of BACK and BORDER as the program runs? How about this: 25 PRINT CHR$(147); "BORDER =";PEEK(53280) AND 15, "BACKGROUND ="; PEEK(53281) AND 15 5.5. Screen Graphics In all the printing information that you've done so far, the computer normally handled information in a sequential fashion: one character is printed after the next, starting from the current cursor position (except where you asked for a new line, or used the ',' in PRINT formatting). To PRINT data in a particular spot you can start from a known place on the screen and PRINT the proper number of cursor controls to format the display. But this takes program steps and is time consuming. But just as there are certain spots in the Commodore 64's memory to control color, there are also locations that you can use to directly control each location on the screen. SCREEN MEMORY MAP Since the computer's screen is capable of holding 1000 characters (40 columns by 25 lines) there are 1000 memory locations set aside to handle what is placed on the screen. The layout of the screen could be thought of as a grid, with each square representing a memory location. And since each location in memory can contain a number from 0 to 255, there are 256 possible values for each memory location. These values represent the different characters the Commodore 64 can display (see Appendix E). By POKEing the value for a character in the appropriate screen memory location, that character will be displayed in the proper position. Screen memory in the Commodore 64 normally begins at memory location 1024, and ends at location 2023. Location 1024 is the upper left corner of the screen. Location 1025 is the position of the next character to the right of that, and so on down the row. Location 1063 is the right-most position of the first row. The next location following the last character on a row is the first character on the next row down. COLUMN 1063 0 10 20 30 39 / +------------------------------------------------------------/ 1024 | | 0 1064 | | 1104 | | 1144 | | 1184 | | 1224 | | 1264 | | 1304 | | 1344 | | 1384 | | 1424 | | 10 1464 | | 1504 | | ROW 1544 | | 1584 | | 1624 | | 1664 | | 1704 | | 1744 | | 1784 | | 1824 | | 20 1864 | | 1904 | | 1944 | | 1984 | | 24 +------------------------------------------------------------\ \ 2023 Now, let's say that you're controlling a ball bouncing on the screen. The ball is in the middle of the screen, column 20, row 12. The formula for calculation of the memory location on the screen is: POINT = 1024 + X + 40 * Y ^ ^ | |__ Column |___________ Row where X is the column and Y is the row. Therefore, the memory location of the ball is: 1024 + 20 + 480 or 1524 ^ ^ | |_____________ Row (40 * 12) |___________________ Column Clear the screen with <SHIFT> and <CLR/HOME> and type: POKE 1524, 81 POKE 55796, 1 ^ ^ | |______ Color |___________ Location COLOR MEMORY MAP A ball appears in the middle of the screen! You have placed a character directly into screen memory without using the PRINT statement. The ball that appeared was white. However there is a way to change the color of an object on the screen by altering another range of memory. Type: POKE 55796, 2 ^ ^ | |______ Color |___________ Location The ball's color changes to red. For every spot on the Commodore 64's screen there are two memory locations, one for the character code, and the other for the color code. The color memory map begins at location 55296 (top left-hand corner), and continues on for 1000 locations. The same color codes, from 0-15, that we used to change border and background colors can be used here to directly change character colors. COLUMN 55335 0 10 20 30 39 / +------------------------------------------------------------/ 55296| | 0 55336| | 55376| | 55416| | 55456| | 55496| | 55536| | 55576| | 55616| | 55656| | 55696| | 10 55736| | 55776| | ROW 55816| | 55856| | 55896| | 55936| | 55976| | 56016| | 56056| | 56096| | 20 56136| | 56176| | 56216| | 56256| | 24 +------------------------------------------------------------\ 56295 The formula we used for calculating screen memory locations can be modified to give the locations to POKE color codes. The new formula is: COLOR PRINT = 55296 + X + 40 * Y 5.6. More Bouncing Balls Here's a revised bouncing ball program that prints directly on the screen with POKEs, rather than using controls within PRINT statements. As you will see after running the program, it is much more flexible than the earlier program, and will lead up to programming much more sophisticated animation. NEW 10 PRINT "{CLR/HOME}" 20 POKE 53280,7 : POKE 53281,13 30 X = 1 : Y = 1 40 DX = 1 : DY = 1 50 POKE 1024 + X + 40 * Y, 81 60 FOR T = 1 TO 10 : NEXT 70 POKE 1024 + X + 40 * Y, 32 80 X = X + DX 90 IF X <= 0 OR X >= 39 THEN DX = -DX 100 Y = Y + DY 110 IF Y <= 0 OR Y >= 24 THEN DY = -DY 120 GOTO 50 Line 10 clears the screen, and line 20 sets the background to light green with a yellow border. The X and Y variables in line 30 keep track of the current row and column position of the ball. The DX and DY variables in line 40 are the horizontal and vertical direction of the ball's movement. When a +1 is added to the X value, the ball is moved to the right; when -1 is added, the ball moves to the left. A +1 added to Y moves the ball down a row; a -1 added to Y moves the ball up a row. Line 50 puts the ball on the screen at the current cursor position. Line 60 is the familiar delay loop, leaving the ball on the screen just long enough to see it. Line 70 erases the ball by putting a space (code 32) where the ball was on the screen. Line 80 adds the direction factor to X. Line 90 tests to see if the ball has reached one of the side walls, reversing the direction if there's a bounce. Line 100 and 110 do the same thing for the top and bottom walls. Line 120 sends the program back to display and moves the ball again. By changing the code in line 50 from 81 to another character code, you can change the ball to any other character. If you change DX and DY to 0 the ball will bounce straight instead of diagonally. We can also add a little more intelligence. So far the only thing you checked for is the X and Y values getting out of bounds for the screen. Add the following lines to the program: 21 FOR L = 1 TO 10 25 POKE 1024 + INT(RND(1)*1000), 166 <------------------ Screen Code 27 NEXT L 85 IF PEEK(1024 + X + 40 * Y) = 166 THEN DX = -DX : GOTO 80 105 IF PEEK(1024 + X + 40 * Y) = 166 THEN DY = -DY : GOTO 100 Lines 21 to 27 put 10 blocks on the screen in random positions. Lines 85 and 105 check (PEEK) to see if the ball is about to bounce into a block, and changes the ball's direction if so. 6. SPRITE GRAPHICS 6.1. Introduction to Sprites In previous chapters dealing with graphics, we saw that graphic symbols could be used in PRINT statements to create animation and add chartlike appearances to our display. A way was also shown to POKE character codes in specific screen memory locations. This would then place the appropriate characters directly on the screen in the right spot. Creating animation in both these cases requires a lot of work because objects must be created from existing graphic symbols. Moving the object requires a number of program statements to keep track of the object and move it to new spot. And, because of the limitation of using graphic symbols, the shape and resolution of the object might not be as good as required. Using sprites in animated sequences eliminates a lot of these problems. A sprite is a high-resolution programmable object that can be made into just about any shape -- through BASIC commands. The object can be easily moved around the screen by simply telling the computer the position the sprite should be moved to. The computer takes care of the rest. And sprites have much more power than just that. Their color can be changed; you can tell if one object collides with another; they can be made to go in front and behind another; and they can be easily expanded in size, just for starters. The penalty for all this is minimal. However, using sprites requires knowing some more details about how the Commodore 64 operates and how numbers are handled within the computer. It's not as difficult as it sounds, though. Just follow the examples and you'll be making your own sprites do amazing things in no time. 6.2. Sprite Creation Sprites are controlled by a separate picture-maker in the Commodore 64. This picture maker handles the video display. It does all the hard work of creating and keeping track of characters and graphics, creating colors, and moving around. This display circuit has 46 different "ON/OFF" locations which act like internal memory locations. Each of these locations breaks down into a series of 8 blocks. And each block can either be "ON" or "OFF". We'll get into more detail about this later. By POKEing the appropriate decimal value in the proper memory location you can control the formation and movement of your sprite creations. In addition to accessing many of the picture making locations we will also be using some of the Commodore 64's main memory to store information (data) that defines the sprites. Finally, eight memory locations directly after the screen memory will be used to tell the computer exactly which memory area each sprite will get its data from. As we go through some examples, the process will be very straightforward, and you'll get the hang of it. So let's get on with creating some sprite graphics. A sprite object is 24 dots wide by 21 dots long. Up to eight sprites can be controlled at a time. Sprites are displayed in a special independent 320 dot wide by 200 dot high area. However, you can use your sprite with any mode, high- resolution, low-resolution, text etc. Say you want to create a balloon and have it float around the sky. The balloon could be designed as in the 24 by 21 grid: SERIES |SERIES |SERIES 1 | 2 | 3 | | 1 1 1 2631 2631 2631 842684218426842184268421 +------------------------+ 1 |.........#######........| 2 |.......###########......| 3 |......#############.....| 4 |......#####...#####.....| 5 |.....#####.###..####....| 6 |.....#####.###.#####....| 7 |.....#####.###..####....| 8 |......#####...#####.....| 9 |......#############.....| R 10 |......#############.....| O 11 |......#.#########.#.....| W 12 |.......#.#######.#......| 13 |.......#..#####..#......| 14 |........#..###..#.......| 15 |........#..###..#.......| 16 |.........#..#..#........| 17 |.........#..#..#........| 18 |..........#####.........| 19 |..........#####.........| 20 |..........#####.........| 21 |...........###..........| +------------------------+ 1 1 2 2 1 5 0 5 0 4 COLUMN The next step is to convert the graphic design into data the computer can use. Get a piece of notebook or graph paper and set up a sample grid that is 21 spaces down and 24 spaces across. Across the top write 128, 64, 32, 16, 8, 4, 2, 1, three times (as shown) for each of the 24 squares. Number down the left side of the grid 1-21 for each row. Write the word DATA at the end of each row. Now fill in the grid with any design or use the balloon that we have. It's easiest to outline the shape first and then go back and fill in the grid. Now if you think of all the squares you filled in as "ON" then substitute a 1 for each filled square. For the one's that aren't filled in, they're "OFF" so put a zero. Starting on the first row, you need to convert the dots into three separate pieces of data the computer can read. Each set of 8 squares is equal to one piece of data called a byte in our balloon. Working from the left, the first 8 squares are blank, or 0, so the value for that series of numbers is 0. The middle series looks like this (again a 1 indicates a dot, 0 is a space): 128 64 32 16 8 4 2 1 +-----+-----+-----+-----+-----+-----+-----+-----+ | 0 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | +-----+-----+-----+-----+-----+-----+-----+-----+ ^ ^ ^ ^ ^ ^ ^ ^ | | | | | | | | 0 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 127 The third series on the first row also contains blanks, so it, too, equals zero. Thus, the data for the first line is: DATA 0, 127, 0 The series that make up row two are calculated like this: +-----+-----+-----+-----+-----+-----+-----+-----+ Series 1: | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | +-----+-----+-----+-----+-----+-----+-----+-----+ 1 = 1 +-----+-----+-----+-----+-----+-----+-----+-----+ Series 2: | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | +-----+-----+-----+-----+-----+-----+-----+-----+ ^ ^ ^ ^ ^ ^ ^ ^ | | | | | | | | 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 255 +-----+-----+-----+-----+-----+-----+-----+-----+ Series 3: | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | +-----+-----+-----+-----+-----+-----+-----+-----+ ^ ^ | | 128 + 64 = 192 For row 2, the data would be: DATA 1, 255, 192 In the same way, the three series that make up each remaining row would be converted into their decimal value. Take the time to do the remainder of the conversion in this example. Now that you have the data for your object, how can it be put to use? Type in the following program and see what happens. 1 REM UP, UP, AND AWAY! 5 PRINT "{CLR/HOME}" 10 V = 53248 : REM START OF DISPLAY CHIP 11 POKE V+21, 4 : REM ENABLE SPRITE 2 12 POKE 2042, 13 : REM SPRITE 2 DATA FROM 13TH BLOCK 20 FOR N = 0 TO 62 : READ Q : POKE 832+N, Q : NEXT 30 FOR X = 0 TO 200 ^------ GETS ITS INFO. FROM DATA* 40 POKE V+4, X : REM UPDATE X COORDINATES 50 POKE V+5, X : REM UPDATE Y COORDINATES 60 NEXT X 70 GOTO 30 200 DATA 0,127,0,1,255,192,3,255,224,3,231,224 <- INFO. READ IN FROM "Q" 210 DATA 7,217,240,7,223,240,7,217,240,3,231,224 220 DATA 3,255,224,3,255,224,2,255,160,1,127,64 230 DATA 1,62,64,0,156,128,0,156,128,0,73,0,0,73,0 240 DATA 0,62,0,0,62,0,0,62,0,0,28,0 * FOR MORE DETAIL ON READ & DATA SEE CHAPTER 8. If you typed everything correctly, your balloon is smoothly flying across the sky: [ PICTURE OMITTED ] In order to understand what happened, first you need to know what picture making locations control the functions you need. These locations, called registers, could be illustrated in this manner: Register(s) Description 0 X coordinate of sprite 0 1 Y coordinate of sprite 0 2 - 15 Paired like 0 and 1 for sprites 1-7 16 Most Significant Bit -- X coordinate 21 Sprite appear: 1 = appear, 0 = disappear 29 Expand sprite in "X" Direction 23 Expand sprite in "Y" Direction 39-46 Sprite 0-7 color In addition to this information you need to know from which 64 byte section sprites will get their data (1 byte is used). This data is handled by 8 locations directly after screen memory: +------+------+------+------+------+------+------+------+ | 2040 | 2041 | 2042 | 2043 | 2044 | 2045 | 2046 | 2047 | +------+------+------+------+------+------+------+------+ ^ ^ ^ ^ ^ ^ ^ ^ | | | | | | | | SPRITE 0 1 2 3 4 5 6 7 Now let's outline the exact procedure to get things moving and finally write a program. There are only a few things necessary to actually create and move an object. 1. Make the proper sprite(s) appear on the screen by POKEing into location 21 a 1 for the bit which turns on the sprite. 2. Set sprite pointer (locations 2040-2047) to where sprite data should be read from. 3. POKE actual data into memory. 4. Through a loop, update X and Y coordinates to move sprite around. 5. You can, optionally, expand the object, change colors, or perform a variety of special functions. Using location 29 to expand your sprite in the "X" direction and location 23 in the "Y" direction. There are only a few items in the program that might not be familiar from the discussion so far. In line 10, V = 53248 sets V to the starting memory location of the video chip. In this way we just increase V by the memory number to get the actual memory location. The register numbers are the ones given on the sprite register map. In line, POKE V+21,4 makes sprite 2 appear by placing a 4 in what is called the sprite enable register (21) to turn on sprite 2. Think of it like this: SPRITES Decimal Values of Each Sprite Number 128 64 32 16 8 4 2 1 Sprite Level Numbers 7 6 5 4 3 2 1 0 +-------+-------+-------+-------+-------+-------+-------+-------+ 21 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | = 4 +-------+-------+-------+-------+-------+-------+-------+-------+ ^ | Put a 1 For The SPRITE You Want Each sprite level is represented in section 21 of the sprite memory and 4 happens to be sprite level 2. If you were using level 3 you would put a 1 in sprite 3 which has a value of 8. In fact, if you used both sprites 2 and 3 you would put a 1 in both 4 and 8. You would then add the numbers together just like you did with the DATA on your graph paper. So, turning on sprites 2 and 3 would be represented as V+21,12. In line 12, POKE 2042,13 instructs the computer to get the data for sprite 2 (location 2042) from the 13th area of memory. You know from making your sprite that it takes up 63 sections of memory. You may not have realized it, but those numbers you put across the top of your grid equal what is known as 3 bytes of the computer. In other words each collection of the following numbers, 128, 64, 32, 16, 8, 4, 2, equals 1 byte of computer memory. Therefore with the 21 rows of your grid times the 3 bytes of each row, each sprite takes up 63 bytes of memory. 20 FOR N = 0 TO 62 : READ Q : POKE 832+N, Q : NEXT ^ ^ | | +---------------+------- 1 WHOLE SPRITE This line handles the actual sprite collision. The 63 bytes of data that represent the sprite you created are READ in through the loop and POKEd into the 13th block of memory. This starts at location 832. 30 FOR X = 0 TO 200 40 POKE V+4, X <---- SPRITE 2'S X COORDINATE 50 POKE V+5, X <---- SPRITE 2'S Y COORDINATE If you remember from school the X coordinate represents an objects horizontal movement across the screen and the Y coordinate represents the sprite's vertical movement across the screen. Therefore as the values of X change in line 30 from 0 to 200 (one number at a time) the sprite moves across the screen DOWN and TO THE RIGHT one space for each number. The numbers are READ by the computer fast enough to make the movement appear to be continuous, instead of 1 step at a time. If you need more details take a look at the register map in Appendix O. When you get into moving multiple objects, it would be impossible for one memory section to update the locations of all eight objects. Therefore each sprite has its own set of 2 memory sections to make it move on the screen. Line 70 starts the cycle over again, after one pass on the screen. The remainder of the program is the data for the balloon. Sure looks different on the screen, doesn't it? Now, try adding the following line: 25 POKE V+23, 4 : POKE V+29, 4 : REM EXPAND and RUN the program again. The balloon has expanded to twice the original size! What we did was simple. By POKEing 4 (again to indicate sprite 2) into memory sections 23 and 29, sprite 2 was expanded in the X and Y direction. It's important to note that the sprite will start in the upper left- hand corner of the object. When expanding an object in either direction, the starting point remains the same. For some added excitement, make the following changes: 11 POKE V+21, 12 12 POKE 2042, 13 : POKE 2043, 13 30 FOR X = 1 TO 190 45 POKE V+6, X 55 POKE V+7, 190-X A second sprite (number 3) has been turned on by POKEing 12 into the memory location that makes the sprite appear (V+21). The 12 turns sprites 3 and 2 on (00001100 = 12). The added lines 45 and 55 move sprite 3 around by POKEing values into sprite 3's X and Y coordinate locations (V+6 and V+7). Want to fill the sky with even more action? Try making these additions: 11 POKE V+21, 28 <-- 28 IS REALLY 4(SPRITE 2)+8(SPRITE 3)+16(SPRITE 4) 12 POKE 2042, 13 : POKE 2043, 13 : POKE 2044, 13 25 POKE V+23, 12 : POKE V+29, 12 48 POKE V+8, X 58 POKE V+9, 100 In line 11 this time, another sprite (4) was made to appear by POKEing 28 into the appropriate "ON" location of the sprite memory section. Now sprites 2-4 are on (00011100 = 28). Line 12 indicates that sprite 4 will get its data from the same memory area (13th 63 section area) as the other sprites by POKEing 2044,13. In line 25, sprites 2 and 3 are expanded by POKEing 12 (Sprites 2 and 3 on) into the X and Y direction expanded memory locations (V+23 and V+29). Line 48 moves sprite 3 along the X axis. Line 58 positions sprite 3 halfway down the screen, at location 100. Because this value does not change, like it did before with X=0 to 200, sprite 3 just moves horizontally. 6.3. Additional Notes on Sprites Now that you've experimented with sprites, a few more words are in order. First, you can change a sprite's color to any of the standard 16 color codes (0-15) that were used to change character color. These can be found in Chapter 5 or in Appendix G. For example, to change sprite 1 to light green, type: POKE V+40,13 (be sure to set V = 53248). You may have noticed in using the example sprite programs that the object never moved to the right-hand edge of the screen. This was because the screen is 320 dots wide and the X direction register can only hold a value up to 255. How then can you get an object to move across the entire screen? There is a location on the memory map that has not been mentioned yet. Location 16 (of the map) controls something called the Most Significant Bit (MSB) of the sprite's X direction location. In effect, this allows you to move the sprite to a horizontal spot between 256 and 320. The MSB of X register works like this: after the sprite has been moved to X location 255, place a value into memory location 16 representing the sprite you want to move. For example, to get sprite 2 to move to horizontal locations 256-320, POKE the value for sprite 2 (which is 4) into memory location 16: POKE V+16, 4 Now start from 0 again in the usual X direction register for sprite 2 (which is in location 4 of the map). Since you are only moving another 64 spaces, X locations would only range between 0 and 63 this time. This whole concept is best illustrated with a version of the original BALLOON SPRITE program: 10 V = 53248 : POKE V+21, 4 : POKE 2042, 13 20 FOR N = 0 TO 62 : READ Q : POKE 832+N, Q : NEXT 25 POKE V+5, 100 30 FOR X = 0 TO 255 40 POKE V+4, X 50 NEXT 60 POKE V+16, 4 70 FOR X = 0 TO 63 80 POKE V+4, X 90 NEXT 100 POKE V+16, 0 110 GOTO 30 200 DATA 0,127,0,1,255,192,3,255,224,3,231,224 210 DATA 7,217,240,7,223,240,7,217,240,3,231,224 220 DATA 3,255,224,3,255,224,2,255,160,1,127,64 230 DATA 1,62,64,0,156,128,0,156,128,0,73,0,0,73,0 240 DATA 0,62,0,0,62,0,0,62,0,0,28,0 Line 60 sets the most significant bit for sprite 2. Line 70 starts moving the standard X direction location, moving sprite 2 the rest of way across the screen. Line 100 is important because it "TURNS OFF" the MSB so that the sprite can start moving from the left edge of the screen again. To define multiple sprites, you may need additional blocks for the sprite data. You can use some of BASIC's RAM by moving BASIC. Before typing or loading your program type: POKE 44, 16 : POKE 16*256, 0 : NEW Now, you can use blocks 32 through 41 (locations 2048 through 4095) to store sprite data. 6.4. Binary Arithmetic It is beyond the scope of this introductory manual to go into details of how the computer handles numbers. We will, however, provide you with a good base for understanding the process and get you started on sophisticated animation. But, before you get too involved we have to define a few terms: BIT -- This is the smallest amount of information a computer can store. Think of a BIT as a switch that is either "ON" or "OFF". When a BIT is "ON" it has a value of 1; when a BIT is "OFF" it has a value of 0. After a BIT, the next level is BYTE. BYTE -- This is defined as a series of BITs. Since a BYTE is made up of 8 BITs, you can actually have a total of 256 different combinations of BITs. In other words, you can have all BITs "OFF" so your BYTE will look like this: 128 64 32 16 8 4 2 1 +-------+-------+-------+-------+-------+-------+-------+-------+ | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | +-------+-------+-------+-------+-------+-------+-------+-------+ and its value will be 0. All BITs "ON" is: 128 64 32 16 8 4 2 1 +-------+-------+-------+-------+-------+-------+-------+-------+ | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | +-------+-------+-------+-------+-------+-------+-------+-------+ which is 128+64+32+16+8+4+2+1=255. The next step up is called a REGISTER. REGISTER -- Defined as a block of BYTEs strung together. But, in this case each REGISTER is really only 1 BYTE long. A series of REGISTERs makes up a REGISTER MAP. REGISTER MAPS are charts like the one you looked at to make your BALLOON SPRITE. Each REGISTER controls a different function, like turning on the SPRITE is really called the SPRITE ENABLE REGISTER. Making the SPRITE longer is the SPRITE EXPAND X REGISTER, while making the SPRITE wider is the SPRITE EXPAND Y REGISTER. Keep in mind that a REGISTER is a BYTE that performs a specific task. Now let's move on to the rest of BINARY ARITHMETIC. BINARY TO DECIMAL CONVERSION +-----------------------------------------------------------------------+ | Decimal Value | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 2^0 | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 2^1 | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 2^2 | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 2^3 | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 2^4 | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 2^5 | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 2^6 | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2^7 | +-------+-------+-------+-------+-------+-------+-------+-------+-------+ Using combinations of all eight bits, you can obtain any decimal value from 0 to 255. Do you start to see why when we POKEd character or color values into memory locations the values had to be in the 0-255 range? Each memory location can hold a byte of information. Any possible combination of eight 0's and 1's will convert to a unique decimal value between 0-255. If all places contain a 1 then the value of the byte equals 255. All zeros equal a byte value zero; "00000011" equals 3, and so on. This will be the basis for creating data that represents sprites and manipulating them. As just one example, if this byte grouping represented part of a sprite (0 is a space, 1 is a colored area): 7 6 5 4 3 2 1 0 2 2 2 2 2 2 2 2 +-------+-------+-------+-------+-------+-------+-------+-------+ | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | +-------+-------+-------+-------+-------+-------+-------+-------+ 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 255 Then we would POKE 255 into the appropriate memory location to represent that part of the object. TIP: To save you the trouble of converting binary numbers into decimal values -- we'll need to do that a lot -- the following program will do the work for you. It's a good idea to enter and save the program for future use. 5 REM BINARY TO DECIMAL CONVERTER 10 INPUT "ENTER 8-BIT BINARY NUMBER :";A$ 12 IF LEN(A$) <> 8 THEN PRINT "8 BITS PLEASE..." : GOTO 10 15 TL = 0 : C = 0 20 FOR X = 8 TO 1 STEP -1 : C = C + 1 30 TL = TL + VAL(MID$(A$,C,1))*2^(X-1) 40 NEXT X 50 PRINT A$; " BINARY = "; TL ;" DECIMAL" 60 GOTO 10 This program takes your binary number, which was entered as a string, and looks at each character of the string, from left to right (the MID$ function). The variable C indicates what character to work on as the program goes through the loop. The VAL function, in line 30, returns the actual value of the character. Since we are dealing with numeric characters, the value is the same as the character. For example, if the first character of A$ is 1 then the value would also be 1. The final part of line 30 multiplies the value of the current character by the proper power of 2. Since the first value is in the 2^7 place, in the example, TL would first equal 1 times 128 or 128. If the bit is 0 then the value for that place would also be zero. This process is repeated for all eight characters as TL keeps track of the running total decimal value of the binary number. 7. CREATING SOUND 7.1. Using Sound if You're Not a Computer Programmer Most programmers use computer sound for two purposes: making music and generating sound effects. Before getting into the "intricacies" of programming sound, let's take a quick look at how a typical sound program is structured ... and give you a short sound program you can experiment with. 7.2. Structure of a Sound Program To begin with, there are five settings which you should know in order to generate sound on your COMMODORE 64: VOLUME, ATTACK/DECAY, SUSTAIN/ RELEASE (ADSR), WAVEFORM CONTROL and HIGH FREQUENCY/LOW FREQUENCY. The first three settings are usually set ONCE at the beginning of your program. The high and low frequency settings must be set for EACH NOTE you play. The waveform control starts and stops each note. 7.3. Sample Sound Program Before you start you have to choose a VOICE. There are 3 voices. Each voice requires different sound setting numbers for Waveform, etc. You can play 1, 2 or 3 voices together but our sample uses only VOICE NUMBER 1. Type in this program line by line ... be sure to hit the <RETURN> key after each line: 5 FORL=54272TO54296:POKEL,0:NEXT First clear sound chip. 10 POKE 54296,15 <-------------- Set VOLUME at highest setting. 20 POKE 54277,190 <-------------- Set ATTACK/DECAY rates to define how fast a note rises to and falls from its peak volume level (0 to 255). 30 POKE 54278,248 <-------------- Set SUSTAIN/RELEASE to define level to prolong note and rate to release it. 40 POKE 54273,17 : POKE 54272,37 Find the not/tone you want to play in the TABLE OF MUSICAL NOTES in Appendix M and enter the HIGH-FREQUENCY and LOW-FREQUENCY values for that note (each note requires 2 POKEs). 50 POKE 54276,17 <-------------- Start WAVEFORM with one of 4 standard settings (17, 33, 65 or 129). 60 FOR T = 1 TO 250 : NEXT <---- Enter a time loop to set the DURATION of the note to be played (a quarter note is approx. "250" but may vary since a longer program can effect the timing). 70 POKE 54276,16 <-------------- Turn off note. To hear the note you just created, type the word RUN and then hit the <RETURN> key. To view the program type the word LIST and hit <RETURN>. To change it, retype the lines you want to alter. 7.4. Making Music on Your Commodore 64 You don't have to be a musician to make a music on your COMMODORE 64! All you need to know are a few simple numbers which tell your computer how loud to set the volume, which notes to play, how long to play them, etc. But first ... here's a program which gives you a quick demonstration of the COMMODORE 64's incredible music capabilities, using only ONE of your computer's 3 separate voices. Type the word NEW and hit <RETURN> to erase your previous program, then enter this program, type the word RUN and hit the <RETURN> key. 5 REM MUSICAL SCALE <---------- Title of program. 7 FORL=54272TO54296:POKEL,0:NEXT Clear sound chip. 10 POKE 54296,15 <-------------- Sets volume at highest setting (15). 20 POKE 54277,9 <--------------- Sets Attack/Decay level (each note). 30 POKE 54276,17 <-------------- Determines waveform (type of sound). 40 FOR T = 1 TO 300 : NEXT <---- Duration (how long) each note plays. 50 READ A <--------------------- Reads first number in line 110 DATA. 60 READ B <--------------------- Reads second number in line 110 DATA. 70 IF B = -1 THEN END <--------- ENDs when it READs -1 in line 900. 80 POKE 54273, A : POKE 54272, B POKEs the first number from DATA in line 110 (A=17) as HIGH FREQUENCY and second number (B=37) as LOW FREQUENCY. Next time program loops around it READs A as 19 and B as 63, and so on, and POKEs these numbers into the HIGH and LOW FREQUENCY locations. The number 54273 = HIGH FREQUENCY for VOICE 1 and 54272 = LOW FREQUENCY for VOICE 1. 85 POKE 54276, 17 <------------- Start note. 90 FORT=1TO250:NEXT:POKE54276,16 Let it play then stop note. 95 FOR T = 1 TO 50 : NEXT <----- Time for release. 100 GOTO 20 <-------------------- Loops back to reset CONTROL and play new note. 110 DATA 17,37,19,63,21,154,22,227 Musical note values from note value 120 DATA25,177,28,214,32,94,34,175 chart in Appendix M. Each pair of numbers represents one note. For example, 17 and 37 represent "C" of the 4th octave, 19 and 63 represent "D" and so on. 900 DATA -1,-1 <----------------- When program reaches -1 it turns off HIGH/LOW FREQUENCY settings and ENDs as instructed in line 70. To change the sound to a "harpsichord", change line 85 to read 54276,33 and line 90 to read FOR T=1 TO 250:NEXT:POKE 54276,32 and RUN the program again. (To change the line, hit the <RUN/STOP> key to stop the program, type word LIST and hit <RETURN>, then retype the program line you want to change; the new line will automatically replace the old one). What we did here is change the "waveform" from a "triangular" shaped sound wave to a "sawtooth" wave. Changing the WAVEFORM can drastically change the sound produced by the COMMODORE 64 ... but ... waveform is only one of several settings you can change to make different musical tones and sound effects! You can also change the ATTACK/DECAY rate of each note ... for example, to change from a "harpsichord" sound to a more "banjo" sound try changing lines 20 and 30 to read: 20 POKE 54277,3 30 POKE 54278,0 <--------------- Sets no sustain for banjo effect. As you've just seen, you can make your COMMODORE 64 sound like different musical instruments. Let's take a closer look at how each sound setting works. 7.5. Important Sound Settings 1. VOLUME. -- To turn on the volume and set it to the highest level, type: POKE 54296,15. The volume setting ranges from 0 to 15 but you'll use 15 most of the time. To turn "off" the volume, type: POKE 54296,0 You only have to set the volume ONCE at the beginning of your program, since the same setting activates all three of the Commodore 64's VOICES. (Changing the volume during a musical note or sound effect can produce interesting results but is beyond the scope of this introduction.) 2. ADSR and WAVEFORM CONTROL SETTINGS. -- You've already seen how changing the waveform can change the sound effect from "xylophone" to "harpsichord". Each VOICE has its own WAVEFORM CONTROL SETTING which lets you define four different types of waveforms: Triangle, Sawtooth, Pulse (Square) and Noise. The CONTROL also activates the COMMODORE 64's ADSR feature, but we'll come back to this in a moment. A sample waveform start setting looks like this: POKE 54276,17 where the first number (54276) represents the control setting for VOICE 1 and the second number (17) represents the start for a triangular waveform. The settings for each VOICE and WAVEFORM combination are shown in the table below. ADSR AND WAVEFORM CONTROL SETTINGS CONTROL Note Start/Stop Numbers REGISTER TRIANGLE SAWTOOTH PULSE NOISE +-----------+---------+-----------+-----------+-----------+-----------+ | VOICE 1 | 54276 | 17/16 | 33/32 | 65/64 | 129/128 | +-----------+---------+-----------+-----------+-----------+-----------+ | VOICE 2 | 54283 | 17/16 | 33/32 | 65/64 | 129/128 | +-----------+---------+-----------+-----------+-----------+-----------+ | VOICE 3 | 54290 | 17/16 | 33/32 | 65/64 | 129/128 | +-----------+---------+-----------+-----------+-----------+-----------+ Although the control registers are different for each voice the waveform settings are the same for each type of waveform. To see how this works, look at lines 85 and 90 in the musical scale program. In this program, immediately after setting the frequency in line 80, we set the CONTROL SETTING for VOICE 1 in line 85 by POKEing 54276,17. This turned on the CONTROL for VOICE 1 and set it to a TRIANGLE WAVEFORM (17). In line 70 we POKE 54276,16, stopping the note. Later, we changed the waveform start setting from 17 to 33 to create a SAWTOOTH WAVEFORM and this gave the scale a "harpsichord" effect. See how the CONTROL SETTING and WAVEFORM interact? Setting the waveform is similar to setting the volume, except each voice has its own stetting and instead of POKEing volume levels we're defining waveforms. Next, we'll look at another aspect of sound ... the ADSR feature. 3. ATTACK/DECAY SETTING. -- As we mentioned before, the ADSR CONTROL SETTING not only defines the waveform but it also activates the ADSR, or ATTACK/DECAY/SUSTAIN/RELEASE feature of the COMMODORE 64. We'll begin by looking at the ATTACK/DECAY setting. The following chart shows the various ATTACK and DECAY levels for each voice. If you're not familiar with the concepts of sound attack and decay, you might think of "attack" as the rate at which a note/sound arises to its MAXIMUM VOLUME. The DECAY is the rate at which the note/sound falls from its highest volume level back to the SUSTAIN level. The following chart shows the ATTACK/DECAY setting for each voice, and the numbers for each attack and decay setting. Note that YOU MUST COMBINE ATTACK AND DECAY SETTINGS BY ADDING THEN UP AND ENTERING THE TOTAL. For example, you can set a HIGH ATTACK rate and a LOW DECAY rate by adding the high attack number (64) to the low decay number (1). The total (65) will tell the computer to set the high attack rate and low decay rate. You can also increase the attack rates by adding them together (128+64+32+16=MAX. ATTACK RATE of 240). ATTACK/DECAY RATE SETTINGS ATTACK/DECAY HIGH MEDIUM LOW LOWEST HIGH MEDIUM LOW LOWEST CONTROL SETTING ATTACK ATTACK ATTACK ATTACK DECAY DECAY DECAY DECAY +---------+-------+------+------+------+------+-----+-----+-----+-----+ | VOICE 1 | 54277 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +---------+-------+------+------+------+------+-----+-----+-----+-----+ | VOICE 2 | 54284 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +---------+-------+------+------+------+------+-----+-----+-----+-----+ | VOICE 3 | 54291 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +---------+-------+------+------+------+------+-----+-----+-----+-----+ If you set an attack rate with no decay, the decay is automatically zero, and vice-versa. For example, if you POKE 54277,64 you set a medium attack rate with zero decay for VOICE 1. If you POKE 54277, 66 you set a medium attack rate and a low decay rate (because 66=64+2 and sets BOTH settings). You can also add up several attack values, or several decay values. For example, you can add a low attack (32) and a medium attack (64) for a combined attack rate of 96, then add a medium decay of 4 and ... presto ... POKE 54277,100. At this point, a sample program will better illustrate the effect. Type the word NEW, hit <RETURN> and type in this program and RUN it: 5 FOR L=54272 TO 54296:POKE L,0:NEXT Clear sound chip. 10 PRINT "HIT ANY KEY" <------------- Screen message 20 POKE 54296,15 <------------------- Set VOLUME at highest level. 30 POKE 54277,64 <------------------- Set Attack/Decay. 50 POKE 54273,17 : POKE 54272,37 <--- POKE one note into VOICE 1. 60 GET K$ : IF K$ = "" THEN 60 <----- Check the keyboard. 70 POKE 54276,17: FOR T=1 TO 200: NEXT Set waveform control (triangle). 80 POKE 54276,16: FOR T=1 TO 50: NEXT Turn off settings. 90 GOTO 20 <------------------------- Loop back and do it again. Here, we're using VOICE 1 to create one note at a time ... with a MEDIUM ATTACK RATE and ZERO DECAY. The key is line 30. POKEing the ATTACK/DECAY setting with the number 64 activates a MEDIUM attack rate. The result sounds like someone bouncing a ball in an oil drum. Now for the fun part. Hit the <RUN/STOP> key to stop the program, then type the word LIST and hit <RETURN>. Now type this line and hit <RETURN> (the new line 30 automatically replaces the old line 30): 30 POKE 54277,190 Type word RUN and hit <RETURN> to see how it sounds. What we've done here is combine several attack and decay settings. The settings are: HIGH ATTACK (128) + LOW ATTACK (32) + LOWEST ATTACK (16) + HIGH DECAY (8) + MEDIUM DECAY (4) + LOW DECAY (2) = 190. This effect sounds like a sound an oboe or other "reedy" instrument might make. If you'd like to experiment, try changing the waveform and attack/decay numbers in the musical scale example to see how an "oboe" sounds. Thus ... you can see that changing the attack/decay rates can be used to create different types of sound effects. 4. SUSTAIN/RELEASE SETTING. -- Like Attack/Decay, the SUSTAIN/RELEASE setting is activated by the ADSR/WAVEFORM CONTROL. SUSTAIN/RELEASE lets you "extend" (SUSTAIN) a portion of a particular sound, like the "sustain pedal" on a piano or organ which lets you prolong a note. Any note or sound can be sustained at any one of 16 levels. The SUSTAIN/RELEASE setting may be used with a FOR ... NEXT loop to determine how long the note will be held at SUSTAIN volume before being released. The following chart shows the numbers you have to POKE to reach different SUSTAIN/ RELEASE rates. SUSTAIN/RELEASE RATE SETTINGS SUSTAIN/RELEASE HIGH MEDIUM LOW LOWEST HIGH MEDIUM LOW LOWEST CONTROL SETTING SUSTAIN | RELEASE +---------+-------+------+------+------+------+-----+-----+-----+-----+ | VOICE 1 | 54278 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +---------+-------+------+------+------+------+-----+-----+-----+-----+ | VOICE 2 | 54285 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +---------+-------+------+------+------+------+-----+-----+-----+-----+ | VOICE 3 | 54292 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +---------+-------+------+------+------+------+-----+-----+-----+-----+ As an example, if you're using VOICE 1, you can set a HIGH SUSTAIN level by typing: POKE 54278,128 or you could combine a HIGH SUSTAIN level with a LOW RELEASE rate by adding 128 + 2 and then POKE 54278,130. Here's the same sample program we used in the ATTACK/DECAY section above ... with a SUSTAIN/RELEASE feature added. Notice the difference in sounds. 5 FOR L=54272 TO 54296:POKE L,0:NEXT Clear sound chip. 10 PRINT "HIT ANY KEY" <------------- Screen message 20 POKE 54296,15 <------------------- Set VOLUME at highest level. 30 POKE 54277,64 <------------------- Set Attack/Decay. 40 POKE 54278,128 <------------------- Set Sustain/Release. 50 POKE 54273,17 : POKE 54272,37 <--- POKE one note into VOICE 1. 60 GET K$ : IF K$ = "" THEN 60 <----- Check the keyboard. 70 POKE 54276,17: FOR T=1 TO 200: NEXT Set waveform control (triangle). 80 POKE 54276,16: FOR T=1 TO 50: NEXT Turn off settings. 90 GOTO 20 <------------------------- Loop back and do it again. In line 30, we tell the computer to SUSTAIN the note at a HIGH SUSTAIN level (128 from chart above) ... after which the tone is released in line 80. You can vary the duration of a note by changing the "count" in line 70. To see the effect of using the release function try changing line 30 to POKE 54278,89 (SUSTAIN = 80, RELEASE = 9). 5. CHOOSING VOICES AND SETTING HIGH/LOW FREQUENCY SOUND VALUES. -- Each individual note on the Commodore 64 requires TWO SEPARATE POKE COMMANDS ... one for HIGH FREQUENCY and one for LOW FREQUENCY. The MUSICAL NOTE VALUE table in Appendix M shows you the corresponding POKEs you need to play any note in the Commodore 64's eight octave range. The HIGH and LOW FREQUENCY POKE COMMANDS are different for each VOICE you use -- this allows you to program all 3 voices independently to create 3-voice music or exotic sound effects. The HIGH and LOW FREQUENCY POKE COMMANDS for each voice are shown in the chart below, which also contains the NOTE VALUES for the middle (fifth) octave. SAMPLE MUSICAL NOTES - FIFTH OCTAVE VOICE NUMBER POKE +--+--+---+---+--+---+---+--+---+---+---+---+---+---+ & FREQUENCY NUMBER| C|C#| D | D#| E| F | F#| G| G#| A | A#| B | C | C#| +-------------------+--+--+---+---+--+---+---+--+---+---+---+---+---+---+ |VOICE 1/HIGH|54273 |34|36| 38| 40|43| 45| 48|51| 54| 57| 61| 64| 68| 72| |VOICE 1/LOW |54272 |75|85|126|200|52|198|127|97|111|172|126|188|149|169| +-------------------+--+--+---+---+--+---+---+--+---+---+---+---+---+---+ |VOICE 2/HIGH|54280 |34|36| 38| 40|43| 45| 48|51| 54| 57| 61| 64| 68| 72| |VOICE 2/LOW |54279 |75|85|126|200|52|198|127|97|111|172|126|188|149|169| +-------------------+--+--+---+---+--+---+---+--+---+---+---+---+---+---+ |VOICE 3/HIGH|54287 |34|36| 38| 40|43| 45| 48|51| 54| 57| 61| 64| 68| 72| |VOICE 3/LOW |54286 |75|85|126|200|52|198|127|97|111|172|126|188|149|169| +-------------------+--+--+---+---+--+---+---+--+---+---+---+---+---+---+ As you can see, there are 2 settings for each voice, a HIGH FREQUENCY setting and a LOW FREQUENCY setting. To play a musical note, you must POKE a value into the HIGH FREQUENCY location and POKE another values into the LOW FREQUENCY location. Using the settings in our VOICE/ FREQUENCY/NOTE VALUE table, here's the setting that plays a C note from the 5th octave (VOICE 1): POKE 54273,34 : POKE 54272,75 The same note on VOICE 2 would be: POKE 54280,34 : POKE 54279,75 Used in a program, it looks like this: 5 FORL=54272TO54296:POKEL,0:NEXT Clear sound chip. 10 V=54296:W=54276:A=54277: <---- Set numbers equal to letters. S=54278:H=54273:L=54272 20 POKE V,15:POKE A,190:POKE S,89 POKE volume, waveform, attack/decay. 30 POKE H,34:POKE L,75 <--------- POKE hi/lo freq. notes. 40 POKE W,33:FOR T=1 TO 200:NEXT Start note, let it play. 50 POKE W,32 <------------------- Stop note. 7.6. Playing a Song on the Commodore 64 The following program can be used to compose or play a song (using VOICE 1). There are two important lessons in this program: first, note how we abbreviate all the long control numbers in the first line of the program ... after that, we can use the letter W for "Waveform" instead of the number 54276. The second lesson concerns the way we use the DATA. This program is set up to let you enter 3 numbers for each note: the HIGH FREQUENCY NOTE VALUE, the LOW FREQUENCY NOTE VALUE, and the DURATION THE NOTE will be played. For this song, we used a duration "count" of 125 for an eighth note, 250 for a quarter note, 375 for a dotted quarter note, 500 for a half note and 1000 for a whole note. These number values can be increased or decreased to match a particular tempo, or your own musical taste. To see how a song gets entered, look at line 100. We entered 34 and 75 as our HIGH and LOW FREQUENCY settings to play a "C" note (from the sample scale shown previously) and then the number 250 for a quarter note. So the first note in our song is a quarter note C. The second note is also a quarter note, this time the note is "E" ... and so on to the end of our tune. You can enter almost any song this way, adding as many DATA statement lines as you need. You can continue the note and duration numbers from one line to the next but each line must begin with the word DATA. DATA -1,-1,-1 should be the last line in your program. This line "ends" the song. Type the word NEW to erase your previous program and type in the following program, then type RUN to hear the song. MICHAEL ROW THE BOAT ASHORE-1 MEASURE 2 FOR L = 54272 TO 54296 : POKE L,0 : NEXT 5 V=54296:W=54276:A=54277:HF=54273:LF=54272:S=54278:PH=54275:PL=54274 10 POKE V,15 : POKE A,88 : POKE PH,15 : POKE PL,15 : POKE S,89 20 READ H : IF H = -1 THEN END 30 READ L 40 READ D 60 POKE HF,H : POKE LF,L : POKE W,65 80 FOR T = 1 TO D : NEXT : POKE W,64 85 FOR T = 1 TO 50 : NEXT 90 GOTO 10 100 DATA 34,75,250,43,52,250,51,97,375,43,52,125,51,97 105 DATA 250,57,172,250 110 DATA 51,97,500,0,0,125,43,52,250,51,97,250,57,172 115 DATA 1000,51,97,500 120 DATA -1,-1,-1 7.7. Creating Sound Effects Unlike music, sound effects are more often tied to a specific programming "action" such as the explosion made by an astro-fighter as it crashes through a barrier in a space game ... or the warning buzzer in a business program that tells the user he's about to erase his disk by mistake. You have a wide range of options available if you want to create different sound effects. Here are 10 programming ideas which might help you get started experimenting with sound effects: 1. Change the volume while a note is playing, for example to create an "echo" effect. 2. Vary between two notes rapidly to create a sound "tremor." 3. Waveform ... try different settings for each voice. 4. Attack/Decay ... to alter the rate a sound rises toward its "peak" volume and rate it diminishes from that peak. 5. Sustain/Release ... to change sustain to volume of a sound effect, and rate it diminishes from that volume. 6. Multivoice effects ... playing more than one voice at the same time, each voice independently controlled, or one voice playing longer or shorter then another, or serving as an "echo" or response to a first note. 7. Changing notes on the scale, or changing octaves, using the values in the MUSICAL NOTE VALUE table. 8. Use the Square Waveform and different Pulse Settings to create different effects. 9. Use the Noise Waveform to generate "white noise" for accenting tonal sound effects or creating explosions, gunshots or footsteps. The same musical notes that create music can also be used with the Noise Waveform to create different types of white noise. 10. Combine several HIGH/LOW frequencies in rapid succession across different octaves. 11. Filter ... try the extra POKE setting in Appendix M. 7.8. Sample Sound Effects To Try The following programs may be added to almost any BASIC program. They are included to give you some programming ideas and demonstrate the Commodore 64's sound effect range. Notice the programming shortcut we're using in line 10. We can abbreviate those long cumbersome sound setting numbers by defining them as easy-to-use letters (numeric variables). Line 10 simply means that these easy to remember LETTERS can be used instead of those long numbers. Here, V=Volume, W=Waveform, A=Attack/Decay, H=High Frequency (VOICE 1), and L=Low Frequency (VOICE 1). We then use these letters instead of numbers in our program ... making our program shorter, typing faster, and the sound settings easier to remember and spot. DOLL CRYING 10 V=54296 : W=54276 : A=54277 : H=54273 : L=54272 20 POKE V,15 : POKE W,65 : POKE A,15 30 FOR X = 200 TO 5 STEP -2 : POKE H,40 : POKE L,X : NEXT 40 FOR X = 150 TO 5 STEP -2 : POKE H,40 : POKE L,X : NEXT 50 POKE W,0 SHOOTING SOUND ... USING VOICE 1, NOISE WAVEFORM, FADING VOLUME 10 V=54296 : W=54276 : A=54277 : H=54273 : L=54272 20 FOR X = 15 TO 0 STEP -1 : POKE V,X : POKE W,129: POKE A,15 : POKE H,40 : POKE L,200 : NEXT 30 POKE W,0 : POKE A,0 8. ADVANCED DATA HANDLING 8.1. READ and DATA You've seen how to assign values to variables directly within the program (A = 2), and how to assign different values while the program is running -- through the INPUT statement. There are many times, though, when neither one of these ways will quite fit the job you're trying to do, especially if it involves a lot of information. Try this short program: 10 READ X 20 PRINT "X IS NOW :"; X 30 GOTO 10 40 DATA 1, 34, 10.5, 16, 234.56 RUN X IS NOW : 1 X IS NOW : 34 X IS NOW : 10.5 X IS NOW : 16 X IS NOW : 234.56 ?OUT OF DATA ERROR IN 10 READY. _ In line 10, the computer READs one value from the DATA statement and assigns that value to X. Each time through the loop the next value in the DATA statement is read and that value assigned to X, and PRINTed. A pointer in the computer itself keeps track of which value is to be used next: Pointer | 40 DATA 1, 34, 10.5, 16, 234.56 When all the values have been used, and the computer executed the loop again, looking for another value, the OUT OF DATA ERROR was displayed because there were no more values to READ. It is important to follow the format of the DATA statement precisely: 40 DATA 1, 34, 10.5, 16, 234.56 ^ ^ | | Comma Separates No Comma Each Item Data statements can contain integer numbers, real numbers (234.5), or numbers expressed in scientific notation. But you can't READ other variables, or have arithmetic operations in DATA lines. This would be incorrect: 40 DATA A, 23/56, 2*5 You can, however, use a string variable in a READ statement and then place string information in the DATA line. The following is acceptable: NEW 10 FOR X = 1 TO 3 15 READ A$ 20 PRINT "A$ IS NOW : "; A$ 30 NEXT 40 DATA THIS, IS, FUN RUN A$ IS NOW : THIS A$ IS NOW : IS A$ IS NOW : FUN READY. Notice that this time, the READ statement was placed inside a FOR ... NEXT loop. This loop was then executed to match the number of values in the data statement. In many cases you will change the number of values in the DATA statement each time the program is run. A way to avoid counting the number of values and still avoid an OUT OF DATA ERROR is to place a "FLAG" as the last value in the DATA line. This would be a value that your data would never equal, such as a negative number or a very large or small number. When that value is READ the program will branch to the next part. There is a way to reuse the same DATA later in the program by RESTOREing the data pointer to the beginning of the data list. Add line 50 to the previous program: 50 GOTO 10 You will still get the OUT OF DATA ERROR because as the program branches back to line 10 to reread the data, the data pointer indicates all the data has been used. Now, add: 45 RESTORE and RUN the program again. The data pointer has been RESTOREd and the data can be READ continuously. 8.2. Averages The following program illustrates a practical use of READ and DATA, by reading in a set of numbers and calculating their average: NEW 5 T = 0 : CT = 0 10 READ X 20 IF X = -1 THEN 50 : REM CHECK FOR FLAG 25 CT = CT + 1 30 T= T + X : REM UPDATE TOTAL 40 GOTO 10 50 PRINT "THERE WERE"; CT ;"VALUES READ" 60 PRINT "TOTAL ="; T 70 PRINT "AVERAGE ="; T/CT 80 DATA 75, 80, 62, 91, 87, 93, 78, -1 RUN THERE WERE 7 VALUES READ TOTAL = 566 AVERAGE = 80.8571429 Line 5 sets CT, the CounTer, and T, Total, equal to zero. Line 10 READs a value and assigns the value to X. Line 20 checks to see if the value is our flag (here a -1). If the value READ is part of the valid DATA, CT is incremented by 1 and X is added to the total. When the flag is READ, the program branches to line 50 which PRINTs the number of values read. Line 60 PRINTs the total, and line 70 divides the total by the number of values to get the average. By using a flag at the end of the DATA, you can place any number of values in DATA statements -- which may stretch over several lines -- without worrying about counting the number of values entered. Another variation of the READ statement involves assigning information from the same DATA line to different variables. This information can even be a mixture of string data and numeric values. You can do all this in the following program that will READ a name, some scores -- say bowling -- and print the name, scores, and the average score: NEW 10 READ N$, A, B, C 20 PRINT N$;"'S SCORES WERE :"; A ;" "; B ;" "; C 30 PRINT "AND THE AVERAGE IS :";(A+B+C)/3 40 PRINT : GOTO 10 50 DATA MIKE, 190, 185, 165, DICK, 225, 245, 190 60 DATA JOHN, 155, 185, 205, PAUL, 160, 179, 187 RUN MIKE'S SCORES WERE : 190 185 165 AND THE AVERAGE IS : 180 DICK'S SCORES WERE : 225 245 190 AND THE AVERAGE IS : 220 In running the program, the DATA statements were set up in the same order that READ statement expected the information: a name (a string), then three values. In other words N$ the first time through gets the data "MIKE", A in the READ corresponds to 190 in the DATA statement, "B" to 185 and "C" to 165. The process is then repeated in that order for the remainder of the information. (DICK and his scores, JOHN and his scores, and PAUL and his scores.) 8.3. Subscribed Variables In the past we've used only simple BASIC variables, such as A, A$, and NU to present values. These were a single letter followed by a letter or single digit. In any of the programs that you would write, it is doubtful that we would have a need for more variable names than possible with all the combinations of letters or numbers available. But you are limited in the way variables are used with programs. Now let's introduce the concept of subscripted variables. A(1) ^ ^ | |___ Subscript |_____ Variable This would be said: A sub 1. A subscribed variable consists of a letter followed by a subscript enclosed within parentheses. Please note the difference between A, A1, and A(1). Each is unique. Only A(1) is a subscripted variable. Subscripted variables, like simple variables, name a memory location within the computer. Think of subscripted variables as boxes to store information, just like simple variables: +------------------------+ A(0) | | +------------------------+ A(1) | | +------------------------+ A(2) | | +------------------------+ A(3) | | +------------------------+ A(4) | | +------------------------+ If you wrote: 10 A(0) = 25 : A(3) = 55 : A(4) = -45.3 Then memory would look like this: +------------------------+ A(0) | 25 | +------------------------+ A(1) | | +------------------------+ A(2) | | +------------------------+ A(3) | 55 | +------------------------+ A(4) | -45.3 | +------------------------+ This group of subscripted variables is also called an array. In this case, a one-dimensional array. Later on, we'll introduce multidimensional arrays. Subscripts can also be more complex to include other variables, or computations. The following are valid subscripted variables: A(X) A(X+1) A(2+1) A(1*3) The expressions within the parentheses are evaluated according to the same rules for arithmetic operations in Chapter 2. Now that the ground rules are in place, how can subscripted variables be put to use? One way is to store a list of numbers entered with INPUT or READ statements. Let's use subscripted variables to do the averages a different way. 5 PRINT CHR$(147) 10 INPUT "HOW MANY NUMBERS :"; X 20 FOR A = 1 TO X 30 PRINT "ENTER VALUE #"; A ;: INPUT B(A) 40 NEXT 50 SU = 0 60 FOR A = 1 TO X 70 SU = SU + B(A) 80 NEXT 90 PRINT : PRINT "AVERAGE ="; SU/X RUN HOW MANY NUMBERS :? 5 ENTER VALUE # 1 ? 125 ENTER VALUE # 2 ? 167 ENTER VALUE # 3 ? 189 ENTER VALUE # 4 ? 167 ENTER VALUE # 5 ? 158 AVERAGE = 161.2 There might have been an easier way to accomplish what we did in this program, but it illustrates how subscripted variables work. Line 10 asks for how many numbers will be entered. This variable, X, acts as the counter for the loop within which values are entered and assigned to the subscripted variable, B. Each time through the INPUT loop, A is increased by 1 and so the next value entered is assigned to the next element in the array A. For example, the first time through the loop A = 1, so the first value entered is assigned to B(1). The next time through, A = 2; the next value is assigned to B(2), and so on until all the values have been entered. But now a big difference comes into play. Once all the values have been entered, they are stored in the array, ready to be put to work in a variety of ways. Before, you kept a running total each time through the INPUT or READ loop, but never could get back the individual pieces of data without re-reading the information. In line 50 through 80, another loop has been designed to add up the various elements of the array and then display the average. This separate part of the program shows that all of the values are stored and can be accessed as needed. To prove that all of the individual values are actually stored separately in an array, type the following immediately after running the previous program: FOR A=1 TO 5 : ? B(A), : NEXT 125 167 189 167 158 The display will show your actual values as the contents of the array are PRINTed. 8.4. Dimension If you tried to enter more than 10 numbers in the previous example, you got a BAD SUBSCRIPT ERROR. Arrays of up to eleven elements (subscripts 0 to 10 for a one-dimensional array) may used where needed, just as simple variables can be used anywhere within a program. Arrays of more than eleven elements need to be "declared" in the dimension statement. Add this line to the program: 5 DIM B(100) This lets the computer know that you will have a maximum of 100 elements in the array. The dimension statement may also be used with a variable, so the following line could replace line 5 (don't forget to eliminate line 5): 15 DIM B(X) This would dimension the array with the exact number of values that will be entered. Be careful, though. Once dimensioned, an array cannot be redimensioned in another part of the program. You can, however, have multiple arrays within the program and dimension them all on the same line, like this: 10 DIM C(20), D(50), E(40) 8.5. Simulated Dice Roll With Arrays As programs become more complex, using subscripted variables will cut down on the number of statements needed, and make the program simpler to write. A single subscribed variable can be used, for example, to keep track of the number of times a particular face turns up: 10 INPUT "HOW MANY ROLLS: "; X 20 FOR L = 1 TO X 30 R = INT(6*RND(1))+1 40 F(R) = F(R) + 1 50 NEXT L 60 PRINT "FACE", "NUMBER OF TIMES" 70 FOR C=1 TO 6 : PRINT C, F(C) : NEXT The array F, for FACE, will be used to keep track of how many times a particular face turns up. For example, every time a 2 is thrown, F(2) is increased by one. By using the same element of the array to hold the actual number on the face that is thrown, we've eliminated the need for five other variables (one for each face) and numerous statements to check and see what number is thrown. Line 10 asks for how many rolls you want to simulate. Line 20 establishes the loop to perform the random roll and increment the proper element of the array by one for each toss. After all of the required tosses are completed, line 60 PRINTs the heading and line 70 PRINTs the number of times each face shows up. A sample run might look like this: HOW MANY ROLLS: ? 1000 FACE NUMBER OF TIMES 1 148 2 176 3 178 4 166 5 163 6 169 Well, at least it wasn't loaded! Just as a comparison, the following is one way of re-writing the same program, but without using subscripted variables. Don't bother to type it in, but do notice the additional statements necessary. 10 INPUT "HOW MANY ROLLS: "; X 20 FOR L = 1 TO X 30 R = INT(6*RND(1))+1 40 IF R = 1 THEN F1 = F1 + 1 : NEXT 41 IF R = 2 THEN F2 = F2 + 1 : NEXT 42 IF R = 3 THEN F3 = F3 + 1 : NEXT 43 IF R = 4 THEN F4 = F4 + 1 : NEXT 44 IF R = 5 THEN F5 = F5 + 1 : NEXT 45 IF R = 6 THEN F6 = F6 + 1 : NEXT 60 PRINT "FACE", "NUMBER OF TIMES" 70 PRINT 1, F1 71 PRINT 2, F2 72 PRINT 3, F3 73 PRINT 4, F4 74 PRINT 5, F5 75 PRINT 6, F6 The program has doubled in size from 7 to 16 lines. In larger programs the space savings from using subscripted variables will be even more dramatic. 8.6. Two-Dimensional Arrays Earlier in this chapter you experimented with one-dimensional arrays. This type of array was visualized as a group of consecutive boxes within memory each holding an element of the array. What would you expect a two- dimensional array to look like? First, a two-dimensional array would be written like this: A(4,6) ^ ^ ^ | | | | Subscripts | Array Name and could be represented as a two-dimensional grid within memory: 0 1 2 3 4 5 6 +-------+-------+-------+-------+-------+-------+-------+ 0 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ 1 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ 2 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ 3 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ 4 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ The subscripts could be thought of as representing the row and column within the table where the particular element of the array is stored. A(3,4) = 255 ^ ^ | |___ Column | Row 0 1 2 3 4 5 6 +-------+-------+-------+-------+-------+-------+-------+ 0 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ 1 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ 2 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ 3 | | | | | 255 | | | +-------+-------+-------+-------+-------+-------+-------+ 4 | | | | | | | | +-------+-------+-------+-------+-------+-------+-------+ If we assigned the value 255 to A(3,4), then 255 could be thought of as being placed in the 4th column of the 3rd row within the table. Two-dimensional arrays behave according to the same rules that were established for one-dimensional arrays: They must be dimensioned: DIM A(20,20) Assignment of data: A(1,1) = 255 Assign values to other variables: AB = A(1,1) PRINT values: PRINT A(1,1) If two-dimensional arrays work like their smaller counterparts, what additional capabilities will the expanded arrays handle? Try this: can you think of a way using a two-dimensional array to tabulate the results of a questionnaire for your club that involved four questions and had up to three responses for each question? The problem could be represented like this: CLUB QUESTIONNAIRE Q1: ARE YOU IN FAVOR OF RESOLUTION #1? _1-YES _2-NO _3-UNDECIDED ... and so on. The array table for this problem could be represented like this: RESPONSES YES NO UNDECIDED +----------------+----------------+----------------+ QUESTION 1 | | | | +----------------+----------------+----------------+ QUESTION 2 | | | | +----------------+----------------+----------------+ QUESTION 3 | | | | +----------------+----------------+----------------+ QUESTION 4 | | | | +----------------+----------------+----------------+ The program to do the actual tabulation for the questionnaire might look like that: 20 PRINT "{CLR/HOME}" 30 FOR R = 1 TO 4 40 PRINT "QUESTION # :"; R 50 PRINT "1-YES 2-NO 3-UNDECIDED" 60 PRINT "WHAT WAS THE RESPONSE : "; 61 GET C : IF C<1 OR C>3 THEN 61 65 PRINT C: PRINT 70 A(R,C) = A(R,C) + 1 : REM UPDATE ELEMENT 80 NEXT R 85 PRINT 90 PRINT "DO YOU WANT TO ENTER ANOTHER" : PRINT "RESPONSE (Y/N) ?"; 100 GET A$ : IF A$ = "" THEN 100 110 IF A$ = "Y" THEN 20 120 IF A$ <> "N" THEN 100 130 PRINT "{CLR/HOME}" ; "THE TOTAL RESPONSES WERE:" : PRINT 140 PRINT SPC(18); "RESPONSE" 141 PRINT "QUESTION", "YES", "NO", "UNDECIDED" 142 PRINT "-------- -----------------------------" 150 FOR R = 1 TO 4 160 PRINT R, A(R,1), A(R,2), A(R,3) 170 NEXT R RUN QUESTION # : 1 1-YES 2-NO 3-UNDECIDED WHAT WAS THE RESPONSE : 1 DO YOU WANT TO ENTER ANOTHER RESPONSE (Y/N) ? QUESTION # : 2 1-YES 2-NO 3-UNDECIDED WHAT WAS THE RESPONSE : 1 And so on... THE TOTAL RESPONSES WERE: RESPONSE QUESTION YES NO UNDECIDED -------- ----------------------------- 1 6 1 0 2 5 2 0 3 7 0 0 4 2 4 1 This program makes use of many of the programming techniques that have been presented so far. Even if you don't have any need for the actual program right now, see if you can follow how the program works. The heart of this program is a 4 by 3 two-dimensional array, A(4,3). The total responses for each possible answer to each question are held in the appropriate element of the array. For the sake of simplicity, we don't use the first rows and column (A(0,0) to A(0,4)). Remember, though, that those elements are always present in any array you design. In practice, if question one is answered YES, then A(1,1) is incremented by one -- row 1 for question 1 and column 1 for a YES response. The rest of the questions and answers follow the same pattern. A NO response for question three would add one to element A(3,2), and so on. APPENDICES INTRODUCTION Now that you've become more intimately involved with your Commodore 64, we want you to know that our customer support does not stop here. You may not know it, but Commodore has been in business for over 23 years. In the 1970's we introduced the first self-contained personal computer (the PET). We have since become the leading computer company in many countries of the world. Our ability to design and manufacture our own computer chips allows us to bring you new and better personal computers at prices way below what you'd expect for this level of technical excellence. Commodore is committed to supporting not only you, the end user, but also the dealer you bought your computer from, magazines which publish how-to articles showing you new applications or techniques, and ... importantly ... software developers who produce programs on cartridge, disk ond tape for use with your computer. We encourage you to establish or join a Commodore "user club" where you can learn new techniques, exchange ideas and share discoveries. We publish two separate magazines which contain programming tips, information on new products and ideas for computer applications. (See Appendix N). In North America, Commodore provides a "Commodore Information Network" on the CompuServe Information Service ... to access this network, all you need is your Commodore 64 computer and our low cost VICMODEM telephone interface cartridge (or other compatible modem). The following APPENDICES contain charts, tables, and other information which help you program your Commodore 64 faster and more efficiently. They also include important information on the wide variety of Commodore products you may be interested in, and a bibliography listing of over 20 books and magazines which can help you develop your programming skills and keep you current on the latest information concerning your computer and peripherals. APPENDIX A COMMODORE 64 ACCESSORIES AND SOFTWARE ACCESSORIES The Commodore 64 will support Commodore VIC 20 storage devices and accessories -- DATASSETTE recorder, disk drive, modem, printer -- so your system can expand to keep pace with changing needs. o Datassette Recorder -- This low cost tape unit enables programs and data to be stored on cassette tape, and played back at a later time. The datassette can also be used to play pre-written programs. o Disk -- The single disk unit uses standard 5.25-inch floppy diskettes, about the size of a 45 RPM record, to store programs and data. Disks allow faster access to data and hold up to 170,000 characters of information each. Disk units are "intelligent", meaning they have their own microprocessor and memory. Disks require no resources from the Commodore 64, such as using part of main memory. o Modem -- A low-cost communication device, the VICMODEM allows access to other computers over ordinary telephone lines. Users will have access to the full resources of large data bases such as The Source, CompuServe, and Dow Jones News Retrieval Service (North America only). o Printer -- The VIC printer produces printed copies of programs, data, or graphics. This 30 character per second dot-matrix printer uses plain tractor feed paper and other inexpensive supplies. The printer attaches directly to the Commodore 64 without any additional interfaces. o Interface Cartridges -- A number of specialized cartridges will be available for the Commodore 64 to allow various standard devices such as modems, printers, controllers, and instruments to be attached to the system. With a special IEEE-488 Cartridge, the Commodore 64 will support the full range of CBM peripherals including disk units and printers. Additionally, a Z80 cartridge will allow you to run CP/M on the Commodore 64, giving you access to the largest base of microcomputer applications available. SOFTWARE Several categories of software will be offered for the Commodore 64, providing you with a wide variety of personal, entertainment, and educational applications to choose from. Business Aids o An Electronic Spreadsheet package will allow you to plan budgets, and perform "what if?" analysis. And with the optional graphic program, meaningful graphs may be created from the spreadsheet data. o Financial planning, such as loan amortization, will be easily handled with the Financial Planning Package. o A number of Professional Time Management programs will help manage appointments and work load. o Easy-to-use Data Base programs will allow you to keep track of information ... mailing lists ... phone lists ... inventories ... and organize information in a useful form. o Professional Word Processing programs will turn the Commodore 64 into a full-featured word processor. Typing and revising memos, letters, and other text material become a breeze. Entertainment o The highest quality games will be available on plug-in cartridges for the Commodore 64, providing hours of enjoyment. These programs make use of the high resolution graphics and full sound range possible with the Commodore 64. o Your Commodore 64 allows you all the fun and excitement available on MAX games because these two machines have completely compatible cartridges. Education o The Commodore 64 is a tutor that never tires and always gives personal attention. Besides access to much of the vast PET educational programs, additional educational languages that will be available for the Commodore 64 include PILOT, LOGO and other key advanced packages. APPENDIX B ADVANCED CASSETTE OPERATION Besides saving copies of your programs on tape, the Commodore 64 can also store the values of variables and other items of data, in a group called a FILE. This allows you to store even more information than could be held in the computer's main memory at one time. Statements used with data files are OPEN, CLOSE, PRINT#, INPUT# and GET#. The system variable ST (status) is used to check for tape markers. In writing data to tape, the same concepts are used as when displaying information on the computer's screen. But instead of PRINTing information on the screen, the information is PRINTed on tape using a variation of the PRINT command -- PRINT#. The following program illustrates how this works: 10 PRINT "WRITE-TO-TAPE-PROGRAM" 20 OPEN 1,1,1, "DATA FILE" 30 PRINT "TYPE DATA TO BE STORED OR TYPE STOP" 40 PRINT 50 INPUT "DATA"; A$ 60 PRINT#1, A$ 70 IF A$ <> "STOP" THEN 40 80 PRINT 90 PRINT "CLOSING FILE" 100 CLOSE 1 The first thing that you must do is OPEN a file (in this case DATA FILE). Line 10 handles that. The program prompts for the data you want to save on tape in line 50. Line 60 writes what you typed -- held in A$ -- onto the tape. And the process continues. If you type STOP, line 100 CLOSEs the file. To retrieve the information, rewind the tape, and try this: 10 PRINT "READ-TAPE-PROGRAM" 20 OPEN 1,1,0, "DATA FILE" 30 PRINT "FILE OPEN" 40 PRINT 50 INPUT#1, A$ 60 PRINT A$ 70 IF A$ <> "STOP" THEN 40 80 PRINT 90 PRINT "CLOSING FILE" 100 CLOSE 1 Again, this file "DATA FILE" first must be OPENed. In line 50 the program INPUTs A$ from tape and also PRINTs A$ on the screen. Then the whole process is repeated until "STOP" is found, which ENDs the program. A variation of GET-GET# can also be used to read the data back from tape. Replace lines 50-70 in the program above with: 50 GET#1, A$ 60 IF A$ <> "" THEN 50 70 PRINT A$, ASC(A$) APPENDIX C COMMODORE 64 BASIC This manual has given you an introduction to the BASIC language -- enough for you to get a feel for computer programming and some of the vocabulary involved. This appendix gives a complete list of the rules (SYNTAX) of Commodore 64 BASIC, along with concise descriptions. Please experiment with these commands. Remember, you can't do any permanent damage to the computer by just typing in programs, and the best way to learn computing is by doing. This appendix is divided into sections according to the different types of operations in BASIC. These include: 1. Variables and Operators: describes the different type of variables, legal variable names, and arithmetic and logical operators. 2. Commands: describes the commands used to work with programs, edit, store and erase them. 3. Statements: describes the BASIC program statements used in numbered lines of programs. 4. Functions: describes the string, numeric, and print functions. VARIABLES The Commodore 64 uses three types of variables in BASIC. These are real numeric, integer numeric, and string (alphanumeric) variables. Variable names may consist of a single letter, a letter followed by a number, or two letters. An integer variable is specified by using the percent (%) sign after the variable name. String variable have the dollar sign ($) after their name. Examples Real Variable Names: A, A5, BZ Integer Variable Names: A%, A5%, BZ% String Variable Names: A$, A5$, BZ$ Arrays are lists of variables with the same name, using extra numbers to specify the element of the array. Arrays are defined using the DIM statement, and may contain floating point, integer, or string variables. The array variable name is followed by a set of parentheses ( ) enclosing the number of variables in the list. A(7), BZ%(11), A$(50), PT(20,20) NOTE: There are three variable names which are reserved for use by the Commodore 64, and may not be defined by you. These variables are: ST, TI and TI$. ST is a status variable which relates to input/output operations. The value of ST will change if there is a problem loading a program from disk or tape. TI and TI$ are variables which relate to the real-time clock built into the Commodore 64. The variable TI is updated every 1/60th of a second. It starts at 0 when the computer is turned on, and is reset only by changing the value of TI$. TI$ is a string which is constantly updated by the system. The first two characters contain the number of hours , the 3rd and 4th characters the number of minutes, and the 5th and 6th characters are the number of seconds. This variable can be given any numeric value, and will be updated from that point. TI$ = "101530" sets the clock to 10:15 and 30 seconds AM. This clock is erased when the computer is turned off, and starts at zero when the system is turned back on. OPERATORS The arithmetic operators include the following signs: + Addition - Subtraction * Multiplication / Division ^ Raising to a power (exponentiation) On a line containing more than one operator, there is a set order in which operations always occur. If several operations are used together on the same line, the computer assigns priorities as follows: First, exponentiation. Next, multiplication and division, and last, addition and subtraction. You can change the order of operations by enclosing within parentheses the calculation to be performed first. Operations enclosed in parentheses will take place before other operations. There are also operations for equalities and inequalities: = Equal To < Less Than > Greater Than <= Less Than or Equal To >= Greater Than or Equal To <> Not Equal To Finally, there are three logical operators: AND OR NOT These are used most often to join multiple formulas in IF...THEN statements. For example: IF A=B AND C=D THEN 100 (Requires both parts to be true) IF A=B OR C=D THEN 100 (Allows either part to be true) COMMANDS CONT (Continue) This command is used to restart the execution of a program which has been stopped by either using the <STOP> key, a STOP statement, or an END statement within the program. The program will restart at the exact place from where it left off. CONT will not work if you have changed or added lines to the program (or even just moved the cursor), or if the program halted due to an error, or if you caused an error before trying to restart the program. In these cases you will get a CAN'T CONTINUE ERROR. LIST The LIST command allows you to look at lines of a BASIC program in memory. You can ask for the entire program to be displayed, or only certain line numbers. LIST Shows entire program LIST 10- Shows only from line 10 until end LIST 10 Shows only line 10 LIST -10 Shows lines from beginning until 10 LIST 10-20 Shows line from 10 to 20, inclusive LOAD This command is used to transfer a program from tape or disk into memory so the program can be used. If you just type LOAD and hit RETURN, the first program found on the cassette unit will be placed in memory. The command may be followed by a program name enclosed within quotes. The name may then be followed by a comma and a number or numeric variable, which acts as a device number to indicate where the program is coming from. If no device number is given, the Commodore 64 assumes device #1, which is the cassette unit. The other device commonly used with the LOAD command is the disk device, which is device #8. LOAD Reads in the next program on tape LOAD "HELLO" Searches tape for program called HELLO, and loads program, if found LOAD A$ Looks for program whose name is in the variable A$ LOAD "HELLO",8 Looks for program called HELLO on the disk drive LOAD "*",8 Looks for first program on disk NEW This command erases the entire program in memory, and also clears out any variables that may have been used. Unless the program was SAVEd, it is lost. BE CAREFUL WHEN YOU USE THIS COMMAND. The NEW command can also be used as a BASIC program statement. When the program reaches this line, the program is erased. This is useful if you want to leave everything neat when the program is done. RUN This command causes execution of a program, once the program is loaded into memory. If there is no line number following RUN, the computer will start with the lowest line number. If a line number is designated, the program will start executing from the specified line. RUN Starts program at lowest line number RUN 100 Starts execution at line 100 RUN X UNDEFINED STATEMENT ERROR. You must always specify an actual line number, not a variable representation SAVE This command will store the program currently in memory on cassette or disk. If you just type SAVE and RETURN, the program will be SAVEd on cassette. The computer has no way of knowing if there is a program already on that tape, so be careful with your tapes or you may erase a valuable program. If you type SAVE followed by a name in quotes or a string variable, the computer will give the program that name, so it can be more easily located and retrieved in the future. The name may also be followed by a device number. After the device number, there can be a comma and a second number, either 0 or 1. If the second number is 1, the Commodore 64 will put an END-OF-TAPE marker after your program. This signals the computer not to look any further on the tape if you were to give an additional LOAD command. If you try to LOAD a program and the computer finds one of these markers, you will get a FILE NOT FOUND ERROR. SAVE Stores program to tape without name SAVE "HELLO" Stores on tape with name HELLO SAVE A$ Stores on tape with name A$ SAVE "HELLO",8 Stores on disk with name HELLO SAVE "HELLO",1,1 Stores on tape with name HELLO and follows program with END-OF-TAPE marker VERIFY This command causes the computer to check the program on disk or tape against the one in memory. This is proof that the program is actually SAVEd, in case the tape or disk is bad, or something went wrong during the SAVE. VERIFY without anything after the command causes the Commodore 64 to check the next program on tape, regardless of name, against the program in memory. VERIFY followed by a program name, or a string variable, will search for that program and then check. Device numbers can also be included with the verify command. VERIFY Checks the next program on tape VERIFY "HELLO" Searches for HELLO, checks against memory VERIFY "HELLO",8 Searches for HELLO on disk, then checks STATEMENTS CLOSE This command completes and closes any files used by OPEN statements. The number following CLOSE is the file number to be closed. CLOSE 2 Only file #2 is closed CLR This command will erase any variables in memory, but leaves the program itself intact. This command is automatically executed when a RUN command is given. CMD CMD sends the output which normally would go to the screen (i.e., PRINT statements, LISTs, but not POKEs onto the screen) to another device instead. This could be a printer, or a data file on tape or disk. This device or file must be OPENed first. The CMD command must be followed by a number or numeric variable referring to the file. OPEN 1,4 OPENs device #4, which is the printer CMD 1 All normal output now goes to printer LIST The program listing now goes to the printer, not the screen To send output back to the screen, CLOSE the file with CLOSE 1. DATA This statement is followed by a list of items to be used by READ statements. Items may be numeric values or text strings, and items are separated by commas. String items need not be inside quote marks unless they contain space, colon, or comma. If two commas have nothing between them, the value will be READ as a zero for a number, or an empty string. DATA 12, 14.5, "HELLO, MOM", 3.14, PART1 DEF FN This command allows you to define a complex calculation as a function with a short name. In the case of a long formula that is used many times within the program, this can save time and space. This function name will be FN and any legal variable name (1 or 2 characters long). First you must define the function using the statement DEF followed by the function name. Following the name is a set of parentheses enclosing a numeric variable. Then follows the actual formula that you want to define, with the variable in the proper spot. You can then "call" the formula, substituting any number for the variable. 10 DEF FN A(X) = 12 * ( 34.75 - X / .3 ) 20 PRINT FN A(7) ^ ^ | | | 7 is inserted where +-----------------+ X is in the formula DIM When you use more than 11 elements of an array, you must execute a DIM statement for the array. Keep in mind that the whole array takes up room in memory, so don't create an array much larger than you'll need. To figure the number of variables created with DIM, multiply the total number of elements in each dimension of the array. 10 DIM A$(40), B7(15), CC%(4,4,4) ^ ^ ^ | | | 41 elements 16 elements 125 elements You can dimension more than one array in a DIM statement. However, be careful not to dimension an array more than once. END When a program encounters an END statement, the program halts, as if it ran out of lines. You may use CONT to restart the program. FOR ... TO ... STEP This statement works with the NEXT statement to repeat a section of the program a set number of times. The format is: FOR (Var. Name)=(Start of Count) TO (End of Count) STEP (Count By) The loop variable will be added to or subtracted from during the program. Without any STEP specified, STEP is assumed to be 1. The start count and end count are the limits to the value of the loop variable. 10 FOR L = 1 to 10 STEP .1 20 PRINT L 30 NEXT L The end of the loop value may be followed by the word STEP and another number or variable. In this case, the value following STEP is added each time instead of 1. This allows you to count backwards, or by fractions. GET The GET statement allows you to get data from the keyboard, one character at a time. When GET is executed, the character that is typed is assigned to the variable. If no character is typed, then a null (empty) character is assigned. GET is followed by a variable name, usually a string variable. If a numeric variable was used and a nonnumeric key depressed, the program would halt with an error message. The GET statement may be placed into a loop, checking for any result. This loop will continue until a key is hit. 10 GET A$: IF A$ = "" THEN 10 GET# The GET# statement is used with a previously OPENed device or file, to input one character at a time from that device or file. GET #1,A$ This would input one character from a data file. GOSUB This statement is similar to GOTO, except the computer remembers which program line it last executed before the GOSUB. When a line with a RETURN statement is encountered, the program jumps back to the statement immediately following the GOSUB. This is useful if there is a routine in your program that occurs in several parts of the program. Instead of typing the routine over and over, execute GOSUBs each time the routine is needed. 20 GOSUB 800 GOTO or GO TO When a statement with the GOTO command is reached, the next line to be executed will be the one with the line number following the word GOTO. IF ... THEN IF ... THEN lets the computer analyze a situation and take two possible courses of action, depending on the outcome. If the expression is true, the statement following THEN is executed. This may be any BASIC statement. If the expression is false, the program goes directly to the next line. The expression being evaluated may be a variable or formula, in which case it is considered true if nonzero, and false if zero. In most cases, there is an expression involving relational operators (=, <, >, <=, >=, <>, AND, OR, NOT). 10 IF X > 10 THEN END INPUT The INPUT statement allows the program to get data from the user, assigning that data to a variable. The program will stop, print a question mark (?) on the screen, and wait for the user to type in the answer and hit RETURN. INPUT is followed by a variable name, or a list of variable names, separated by commas. A message may be placed within quote marks, before the list of variable names to be INPUT. If more than one variable is to be INPUT, they must be separated by commas when typed. 10 INPUT "PLEASE ENTER YOUR FIRST NAME";A$ 20 PRINT "ENTER YOUR CODE NUMBER";: INPUT B INPUT# INPUT# is similar to INPUT, but takes data from a previously OPENed file or device. 10 INPUT#1, A LET LET is hardly ever used in programs, since it is optional, but the statement is the heart of all BASIC programs. The variable name which is to be assigned the result of a calculation is on the left side of the equal sign, and the formula in the right. 10 LET A = 5 20 LET D$ = "HELLO" NEXT NEXT is always used in conjunction with the FOR statement. When the program reaches a NEXT statement, it checks the FOR statement to see if the limit of the loop has been reached. If the loop is not finished, the loop variable is increased by the specified STEP value. If the loop is finished, execution proceeds with the statement following NEXT. NEXT may be followed by a variable name, or list of variable names, separated by commas. If there are no names listed, the last loop started is the one being completed. If variables are given, they are completed in order from left to right. 10 FOR X = 1 TO 100: NEXT ON This command turns the GOTO and GOSUB commands into special versions of the IF statement. ON is followed by a formula, which is evaluated. If the result of the calculation is one, the first line on the list is executed; if the result is 2, the second line is executed, and so on. If the result is 0, negative, or larger than the list of numbers, the next line executed will be the statement following the ON statement. 10 INPUT X 20 ON X GOTO 10,20,30,40,50 OPEN Then OPEN statement allows the Commodore 64 to access devices such as the cassette recorder and disk for data, a printer, or even the screen. OPEN is followed by a number (0-255), to which all following statements will refer. There is usually a second number after the first, which is the device number. The device numbers are: 0 Screen 1 Cassette 4 Printer 8 Disk Following the device number may be a third number, separated again by a third number, separated again by a comma, which is the secondary address. In the case of the cassette, this is 0 for read, 1 for write, and 2 for write with end-of-tape marker. In the case of the disk, the number refers to the buffer, or channel, number. In the printer, the secondary address controls features like expanded printing. See the Commodore 64 Programmer's Reference Manual for more details. 10 OPEN 1,0 OPENs the SCREEN as a device 20 OPEN 2,1,0,"D" OPENs the cassette for reading, file to be searched for is D 30 OPEN 3,4 OPENs the printer 40 OPEN 4,8,15 OPENs the data channel on the disk Also see: CLOSE, CMD, GET#, INPUT#, and PRINT#, system variable ST, and Appendix B. POKE POKE is always followed by two numbers, or formulas. The first location is a memory location; the second number is a decimal value from 0 to 255, which will be placed in the memory location, replacing any previously stored value. 10 POKE 53281,0 20 S = 4096 * 13 30 POKE S + 29, 8 PRINT The PRINT statement is the first one most people learn to use, but there are a number of variations to be aware of. PRINT can be followed by: Text String with quotes Variable names Functions Punctuation marks Punctuation marks are used to help format the data on the screen. The comma divides the screen into four columns, while the semicolon suppresses all spacing. Either mark can be last symbol on a line. This results in the next thing PRINTed acting as if it were a continuation of the same PRINT statement. 10 PRINT "HELLO" 20 PRINT "HELLO", A$ 30 PRINT A + B 40 PRINT J; 50 PRINT A, B, C, D Also see: POS, SPC and TAB functions. PRINT# There are a few differences between this statement and PRINT. PRINT# is followed by a number, which refers to the device or data file previously OPENed. This number is followed by a comma and a list to be printed. The comma and semicolon have the same effect as they do in PRINT. Please note that some devices may not work with TAB and SPC. 100 PRINT#1, "DATA VALUES"; A%, B1, C$ READ READ is used to assign information from DATA statements to variables, so the information may be put to use. Care must be taken to avoid READing strings where READ is expecting a number, which will give a TYPE MISMATCH ERROR. REM (Remark) REMark is a note to whomever is reading a LIST of the program. It may explain a section of the program, or give additional instructions. REM statements in no way affect the operation of the program, except to add to its length. REM may be followed by any text. RESTORE When executed in a program, the pointer to which an item in a DATA statement will be READ next is reset to the first item in the list. This gives you ability to re-READ the information. RESTORE stands by itself on a line. RETURN This statement is always used in conjunction with GOSUB. When the program encounters a RETURN, it will go to the statement immediately following the GOSUB command. If no GOSUB was previously issued, a RETURN WITHOUT GOSUB ERROR will occur. STOP This statement will halt program execution. The message, BREAK IN xxx will be displayed, where xxx is the line number containing STOP. The program may be restarted by using the CONT command. STOP is normally used in debugging a program. SYS SYS is followed by a decimal number or numeric value in the range 0-65535. The program will then begin executing the machine language program starting at that memory location. This is similar to the USR function, but does not allow parameter passing. WAIT WAIT is used to halt the program until the contents of a memory location changes in a specific way. WAIT is followed by a memory location (X) and up to two variables. The format is: WAIT X,Y,Z The contents of the memory location are first exclusive-ORed with the third number, if present, and then logically ANDed with the second number. If the result is zero, the program goes back to that memory location and checks again. When the result is nonzero, the program continues with the next statement. NUMERIC FUNCTIONS ABS(X) (absolute value) ABS returns the absolute value of the number, without its sign (+ or -). The answer is always positive. ATN(X) (arctangent) Returns the angle, measured in radians, whose tangent is X. COS(X) (cosine) Returns the value of the cosine of X, where X is an angle measured in radians. EXP(X) Returns the value of the mathematical constant e (2.71827183) raised to the power of X. FN xx(X) Returns the value of the user-defined function xx created in a DEF FN xx(X) statement. INT(X) Returns the truncated value of X, that is, with all the decimal places to the right of the decimal point removed. The result will always be less than, or equal to, X. Thus, any negative numbers with decimal places will become the integer less than their current value. LOG(X) (logarithm) Will return the natural log of X. The natural log to the base e (see EXP(X)). To convert to log base 10, simply divide by LOG(10). PEEK(X) Used to find out contents of memory location X, in the range 0-65535, giving a result from 0-255. PEEK is often used in conjunction with the POKE statement. RND(X) (random number) RND(X) returns a random number in the range 0-1. The first random number should be generated by the formula RND(-TI) to start things off differently every time. After this, X should be a 1 or any positive number. If X is zero, the result will be the same random number as the last one. A negative value for X will reseed the generator. The use of the same negative number for X will result in the same sequence of "random" numbers. The formula for generating a number between X and Y is: N = RND(1) * (Y-X) + X where, Y is the upper limit, X is the lower range of numbers desired. SGN(X) (sign) This function returns the sign (positive, negative, or zero) of X. The result will be +1 if positive, 0 if zero, and -1 if negative. SIN(X) (sine) SIN(X) is the trigonometric sine function. The result will be the sine of X, where X is an angle in radians. SQR(X) (square root) This function will return the square root of X, where X is a positive number or 0. If X is negative, an ILLEGAL QUANTITY ERROR results. TAN(X) (tangent) The result will be the tangent of X, where X is an angle in radians. USR(X) When this function is used, the program jumps to a machine language program whose starting point is contained in memory locations. The parameter X is passed to the machine language program, which will return another value back to the BASIC program. Refer to the Commodore 64 Programmer's Reference Manual for more details on this function and machine language programming. STRING FUNCTIONS ASC(X$) This function will return the ASCII code of the first character of X$. CHR$(X) This is the opposite of ASC, and returns a string character whose ASCII code is X. LEFT$(X$,X) Returns a string containing the leftmost X characters of X$. LEN(X$) Returned will be the number of characters (including spaces and other symbols) in the string X$. MID$(X$,S,X) This will return a string containing X characters starting from the Sth character in X$. RIGHT$(X$,X) Returns the rightmost X characters in X$. STR$(X) This will return a string which is identical to the PRINTed version of X. VAL(X$) This function converts X$ into a number, and is essentially the inverse operation from STR$. The string is examined from the leftmost character to the right, for as many characters as are in recognizable number format. 10 X = VAL("123.456") X = 123.456 10 X = VAL("12A13B") X = 12 10 X = VAL("RIU017") X = 0 10 X = VAL("-1.23.45.67") X = -1.23 OTHER FUNCTIONS FRE(X) This function returns the number of unused bytes available in memory, regardless of the value of X. Note that FRE(X) will read out n negative numbers if the number of unused bytes is over 32K. POS(X) This function returns the number of the column (0-39) at which the next PRINT statement will begin on the screen. X may have any value and is not used. SPC(X) This is used in a PRINT statement to skip X spaces forward. TAB(X) TAB is also used in a PRINT statement; the next item to be PRINTed will be in column X. APPENDIX D ABBREVIATIONS FOR BASIC KEYWORDS As a time-saver when typing in programs and commands, Commodore 64 BASIC allows the user to abbreviate most keywords. The abbreviation for PRINT is a question mark. The abbreviations for other words are made by typing the first one or two letters of the word, followed by the SHIFTed next letter of the word. If the abbreviations are used in a program line, the keyword will LIST in the full form. Com- Abbrevi- Looks like | Com- Abbrevi- Looks like mand ation this on | mand ation this on screen | screen ------------------------------------+------------------------------------ ABS A <SHIFT+B> | NOT N <SHIFT+O> AND A <SHIFT+N> | ON NONE ON ASC A <SHIFT+S> | OPEN O <SHIFT+P> ATN A <SHIFT+T> | OR NONE OR CHR$ C <SHIFT+H> | PEEK P <SHIFT+E> CLOSE CL <SHIFT+O> | POKE P <SHIFT+O> CLR C <SHIFT+L> | POS NONE POS CMD C <SHIFT+M> | PRINT ? ? CONT C <SHIFT+O> | PRINT# P <SHIFT+R> COS NONE COS | READ R <SHIFT+E> DATA D <SHIFT+A> | REM NONE REM DEF D <SHIFT+E> | RESTORE RE <SHIFT+S> DIM D <SHIFT+I> | RETURN RE <SHIFT+T> END E <SHIFT+N> | RIGHT$ R <SHIFT+I> EXP E <SHIFT+X> | RND R <SHIFT+N> FN NONE FN | RUN R <SHIFT+U> FOR F <SHIFT+O> | SAVE S <SHIFT+A> FRE F <SHIFT+R> | SGN S <SHIFT+G> GET G <SHIFT+E> | SIN S <SHIFT+I> GET# NONE GET# | SPC( S <SHIFT+P> GOSUB GO <SHIFT+S> | SQR S <SHIFT+Q> GOTO G <SHIFT+O> | STATUS ST ST IF NONE IF | STEP ST <SHIFT+E> INPUT NONE INPUT | STOP S <SHIFT+T> INPUT# I <SHIFT+N> | STR$ ST <SHIFT+R> INT NONE INT | SYS S <SHIFT+Y> LEFT$ LE <SHIFT+F> | TAB( T <SHIFT+A> LEN NONE LEN | TAN NONE TAN LET L <SHIFT+E> | THEN T <SHIFT+H> LIST L <SHIFT+I> SAVE | TIME TI TI LOAD L <SHIFT+O> | TIME$ TI$ TI$ LOG NONE LOG | USR U <SHIFT+S> MID$ M <SHIFT+I> | VAL V <SHIFT+A> NEW NONE NEW | VERIFY V <SHIFT+E> NEXT N <SHIFT+E> | WAIT W <SHIFT+A> APPENDIX E SCREEN DISPLAY CODES The following chart lists all of the characters built into the Commodore 64 character sets. It shows which numbers should be POKED into screen memory (locations 1024-2023) to get a desired character. Also shown is which character corresponds to a number PEEKed from the screen. Two character sets are available, but only one set at a time. This means that you cannot have characters from one set on the screen at the same time you have characters from the other set displayed. The sets are switched by holding down the <SHIFT> and <C=> keys simultaneously. From BASIC, POKE 53272,21 will switch to upper case mode and POKE 53272,23 switches to lower case. Any number on the chart may also be displayed in REVERSE. The reverse character code may be obtained by adding 128 to the values shown. If you want to display a solid circle at location 1504, POKE the code for the circle (81) into location 1504: POKE 1504,81. There is a corresponding memory location to control the color of each character displayed on the screen (locations 55296-56295). To change the color of the circle to yellow (color code 7) you would POKE the corresponding memory location (55776) with the character color: POKE 55776,7. Refer to Appendix G for the complete screen and color memory maps, along with color codes. SCREEN CODES SET 1 SET 2 POKE | SET 1 SET 2 POKE | SET 1 SET 2 POKE ------------------------+------------------------+----------------------- @ 0 | + 43 | V 86 A a 1 | , 44 | W 87 B b 2 | - 45 | X 88 C c 3 | . 46 | Y 89 D d 4 | / 47 | Z 90 E e 5 | 0 48 | 91 F f 6 | 1 49 | 92 G g 7 | 2 50 | 93 H h 8 | 3 51 | 94 I i 9 | 4 52 | 95 J j 10 | 5 53 | SPACE 96 K k 11 | 6 54 | 97 L l 12 | 7 55 | 98 M m 13 | 8 56 | 99 N n 14 | 9 57 | 100 O o 15 | : 58 | 101 P p 16 | ; 59 | 102 Q q 17 | < 60 | 103 R r 18 | = 61 | 104 S s 19 | > 62 | 105 T t 20 | ? 63 | 106 U u 21 | 64 | 107 V v 22 | A 65 | 108 W w 23 | B 66 | 109 X x 24 | C 67 | 110 Y y 25 | D 68 | 111 Z z 26 | E 69 | 112 [ 27 | F 70 | 113 pound 28 | G 71 | 114 ] 29 | H 72 | 115 ^ 30 | I 73 | 116 <- 31 | J 74 | 117 SPACE 32 | K 75 | 118 ! 33 | L 76 | 119 " 34 | M 77 | 120 # 35 | N 78 | 121 $ 36 | O 79 | 122 % 37 | P 80 | 123 & 38 | Q 81 | 124 ' 39 | R 82 | 125 ( 40 | S 83 | 126 ) 41 | T 84 | 127 * 42 | U 85 | ------------------------+------------------------+----------------------- Codes from 128-255 are reversed images of codes 0-127. APPENDIX F ASCII AND CHR$ CODES This appendix shows you what characters will appear if you PRINT CHR$(X), for all possible values of X. It will also show the values obtained by typing PRINT ASC("x"), where x is any character you can type. This is useful in evaluating the character received in a GET statement, converting upper/lower case, and printing character based commands (like switch to upper/lower case) that could not be enclosed in quotes. +-----------------+-----------------+-----------------+-----------------+ | PRINTS CHR$ | PRINTS CHR$ | PRINTS CHR$ | PRINTS CHR$ | +-----------------+-----------------+-----------------+-----------------+ | 0 | 0 48 | 96 | {black} 144 | | 1 | 1 49 | 97 | {up} 145 | | 2 | 2 50 | 98 | {rvs off} 146 | | 3 | 3 51 | 99 | {clear} 147 | | 4 | 4 52 | 100 | {inst} 148 | | {white} 5 | 5 53 | 101 | {brown} 149 | | 6 | 6 54 | 102 | {lt. red} 150 | | 7 | 7 55 | 103 | {grey 1} 151 | | disSHIFT+C= 8 | 8 56 | 104 | {grey 2} 152 | | enaSHIFT+C= 9 | 9 57 | 105 | {lt.green}153 | | 10 | : 58 | 106 | {lt.blue} 154 | | 11 | ; 59 | 107 | {grey 3} 155 | | 12 | < 60 | 108 | {purple} 156 | | return 13 | = 61 | 109 | {left} 157 | | lower case 14 | > 62 | 110 | {yellow} 158 | | 15 | ? 63 | 111 | {cyan} 159 | | 16 | @ 64 | 112 | SPACE 160 | | {down} 17 | A 65 | 113 | 161 | | {rvs on} 18 | B 66 | 114 | 162 | | {home} 19 | C 67 | 115 | 163 | | {del} 20 | D 68 | 116 | 164 | | 21 | E 69 | 117 | 165 | | 22 | F 70 | 118 | 166 | | 23 | G 71 | 119 | 167 | | 24 | H 72 | 120 | 168 | | 25 | I 73 | 121 | 169 | | 26 | J 74 | 122 | 170 | | 27 | K 75 | 123 | 171 | | {red} 28 | L 76 | 124 | 172 | | {right} 29 | M 77 | 125 | 173 | | {green} 30 | N 78 | 126 | 174 | | {blue} 31 | O 79 | 127 | 175 | | SPACE 32 | P 80 | 128 | 176 | | ! 33 | Q 81 | {orange} 129 | 177 | | " 34 | R 82 | 130 | 178 | | # 35 | S 83 | 131 | 179 | | $ 36 | T 84 | 132 | 180 | | % 37 | U 85 | f1 133 | 181 | | & 38 | V 86 | f3 134 | 182 | | ' 39 | W 87 | f5 135 | 183 | | ( 40 | X 88 | f7 136 | 184 | | ) 41 | Y 89 | f2 137 | 185 | | * 42 | Z 90 | f4 138 | 186 | | + 43 | [ 91 | f6 139 | 187 | | , 44 | pound 92 | f8 140 | 188 | | - 45 | ] 93 |shift+ret. 141 | 189 | | . 46 | ^ 94 |upper case 142 | 190 | | / 47 |{arrow left}95 | 143 | 191 | +-----------------+-----------------+-----------------+-----------------+ CODES 192-223 SAME AS 96-127 CODES 224-254 SAME AS 160-190 CODE 255 SAME AS 126 APPENDIX D SCREEN AND COLOR MEMORY MAPS The following charts list which memory locations control placing characters on the screen, and the locations used to change individual character colors, as well as showing character color codes. SCREEN MEMORY MAP COLUMN 1063 0 10 20 30 39 / +------------------------------------------------------------/ 1024 | | 0 1064 | | 1104 | | 1144 | | 1184 | | 1224 | | 1264 | | 1304 | | 1344 | | 1384 | | 1424 | | 10 1464 | | 1504 | | ROW 1544 | | 1584 | | 1624 | | 1664 | | 1704 | | 1744 | | 1784 | | 1824 | | 20 1864 | | 1904 | | 1944 | | 1984 | | 24 +------------------------------------------------------------\ \ 2023 The actual values to POKE into a color memory location to change a character's color are: 0 BLACK 8 ORANGE 1 WHITE 9 BROWN 2 RED 10 Light RED 3 CYAN 11 GRAY 1 4 PURPLE 12 GRAY 2 5 GREEN 13 Light GREEN 6 BLUE 14 Light BLUE 7 YELLOW 15 GRAY 3 For example, to change the color of a character located at the upper left-hand corner of the screen to red, type: POKE 55296,2. COLOR MEMORY MAP COLUMN 55335 0 10 20 30 39 / +------------------------------------------------------------/ 55296| | 0 55336| | 55376| | 55416| | 55456| | 55496| | 55536| | 55576| | 55616| | 55656| | 55696| | 10 55736| | 55776| | ROW 55816| | 55856| | 55896| | 55936| | 55976| | 56016| | 56056| | 56096| | 20 56136| | 56176| | 56216| | 56256| | 24 +------------------------------------------------------------\ 56295 APPENDIX H DERIVING MATHEMATICAL FUNCTIONS Functions that are not intrinsic to Commodore 64 BASIC may be calculated as follows: +-------------------------------+---------------------------------------+ | FUNCTION | BASIC EQUIVALENT | +-------------------------------+---------------------------------------+ | SECANT | SEC(X)=1/COS(X) | | COSECANT | CSC(X)=1/SIN(X) | | COTANGENT | COT(X)=1/TAN(X) | | INVERSE SINE | ARCSIN(X)=ATN(X/SQR(-X*X+1)) | | INVERSE COSINE | ARCCOS(X)=-ATN(X/SQR(-X*X+1))+{pi}/2 | | INVERSE SECANT | ARCSEC(X)=ATN(X/SQR(X*X-1)) | | INVERSE COSECANT | ARCCSC(X)=ATN(X/SQR(X*X-1)) | | | +(SGN(X)-1*{pi}/2 | | INVERSE COTANGENT | ARCOT(X)=ATN(X)+{pi}/2 | | HYPERBOLIC SINE | SINH(X)=(EXP(X)-EXP(-X))/2 | | HYPERBOLIC COSINE | COSH(X)=(EXP(X)+EXP(-X))/2 | | HYPERBOLIC TANGENT | TANH(X)=EXP(-X)/(EXP(X)+EXP(-X))*2+1 | | HYPERBOLIC SECANT | SECH(X)=2/(EXP(X)+EXP(-X)) | | HYPERBOLIC COSECANT | CSCH(X)=2/(EXP(X)-EXP(-X)) | | HYPERBOLIC COTANGENT | COTH(X)=EXP(-X)/(EXP(X)-EXP(-X))*2+1 | | INVERSE HYPERBOLIC SINE | ARCSINH(X)=LOG(X+SQR(X*X+1)) | | INVERSE HYPERBOLIC COSINE | ARCCOSH(X)=LOG(X+SQR(X*X-1)) | | INVERSE HYPERBOLIC TANGENT | ARCTANH(X)=LOG((1+X)/(1-X))/2 | | INVERSE HYPERBOLIC SECANT | ARCSECH(X)=LOG((SQR(-X*X+1)+1/X) | | INVERSE HYPERBOLIC COSECANT | ARCCSCH(X)=LOG((SGN(X)*SQR(X*X+1/X) | | INVERSE HYPERBOLIC COTANGENT | ARCCOTH(X)=LOG((X+1)/(X-1))/2 | +------------------------------+----------------------------------------+ APPENDIX I PINOUTS FOR INPUT/OUTPUT DEVICES This appendix is designed to show you what connections may be made to the Commodore 64. 1) Game I/O 4) Serial I/O (Disk/Printer) 2) Cartridge Slot 5) Modulator Output 3) Audio/Video 6) Cassette 7) User Port Control Port 1 +-----+-------------+-----------+ /---------------------\ | Pin | Type | Note | | 1 2 3 4 5 | +-----+-------------+-----------+ | O O O O O | | 1 | JOYA0 | | | | | 2 | JOYA1 | | | O O O O | | 3 | JOYA2 | | | 6 7 8 9 | | 4 | JOYA3 | | \_______________/ | 5 | POT AY | | | 6 | BUTTON A/LP | | | 7 | +5V | MAX. 50mA | | 8 | GND | | | 9 | POT AX | | +-----+-------------+-----------+ Control Port 2 +-----+-------------+-----------+ | Pin | Type | Note | +-----+-------------+-----------+ | 1 | JOYB0 | | | 2 | JOYB1 | | | 3 | JOYB2 | | | 4 | JOYB3 | | | 5 | POT BY | | | 6 | BUTTON B | | | 7 | +5V | MAX. 50mA | | 8 | GND | | | 9 | POT BX | | +-----+-------------+-----------+ Cartridge Expansion Slot +--------+-----------+ +--------+--------------+ | Pin | Type | | Pin | Type | +--------+-----------+ +--------+--------------+ | 12 | BA | | 1 | GND | | 13 | /DMA | | 2 | +5V | | 14 | D7 | | 3 | +5V | | 15 | D6 | | 4 | /IRQ | | 16 | D5 | | 5 | R/W | | 17 | D4 | | 6 | Dot Clock | | 18 | D3 | | 7 | I/O1 | | 19 | D2 | | 8 | /GAME | | 20 | D1 | | 9 | /EXROM | | 21 | D0 | | 10 | I/O2 | | 22 | GND | | 11 | /ROML | +--------+-----------+ +--------+--------------+ +--------+-----------+ +--------+--------------+ | Pin | Type | | Pin | Type | +--------+-----------+ +--------+--------------+ | N | A9 | | A | GND | | P | A8 | | B | /ROMH | | R | A7 | | C | /RESET | | S | A6 | | D | /NMI | | T | A5 | | E | 02 | | U | A4 | | F | A15 | | V | A3 | | H | A14 | | W | A2 | | J | A13 | | X | A1 | | K | A12 | | Y | A0 | | L | A11 | | Z | GND | | M | A10 | +--------+-----------+ +--------+--------------+ 2 2 2 1 1 1 1 1 1 1 1 1 1 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 +---@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@---+ | | +---@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@-@---+ Z Y X W V U T S R P N M L K J H F E D C B A Audio/Video ++ ++ +--------------------------+------------------+ / +-+ \ | Pin | Type | Note | / \ +--------+-----------------+------------------+ + + | 1 | LUMINANCE | | |3O O1| | 2 | GND | | | | | 3 | AUDIO OUT | | + O O + | 4 | VIDEO OUT | | \5 O 4/ | 5 | AUDIO IN | | \ 2 / +--------+-----------------+------------------+ +---+ Serial I/O ++ ++ +---------------------------------------------+ / +-+ \ | Pin | Type | /5 1\ +--------+------------------------------------+ + O O + | 1 | SERIAL /SRQIN | | 6 | | 2 | GND | | O | | 3 | SERIAL ATN OUT | | | | 4 | SERIAL CLK IN/OUT | + O O + | 5 | SERIAL DATA IN/OUT | \4 O 2/ | 6 | /RESET | \ 3 / +--------+------------------------------------+ +---+ Cassette +-------+-------------------------------------+ | Pin | Type | +-------+-------------------------------------+ | A-1 | GND | 1 2 3 4 5 6 | B-2 | +5V | +---@-@-@-@-@-@---+ | C-3 | CASSETTE MOTOR | | | | D-4 | CASSETTE READ | +---@-@-@-@-@-@---+ | E-5 | CASSETTE WRITE | A B C D E F | F-6 | CASSETTE SENSE | +-------+-------------------------------------+ User I/O +------+------------------+-------------------+ | Pin | Type | Note | +------+------------------+-------------------+ | 1 | GND | | | 2 | +5V | MAX. 100 mA | | 3 | /RESET | | | 4 | CNT1 | | | 5 | SP1 | | | 6 | CNT2 | | | 7 | SP2 | | | 8 | /PC2 | | | 9 | SER. ATN OUT | | | 10 | 9 VAC | MAX. 100 mA | | 11 | 9 VAC | MAX. 100 mA | | 12 | GND | | +------+------------------+-------------------+ +------+------------------+-------------------+ | Pin | Type | Note | +------+------------------+-------------------+ | A | GND | | | B | /FLAG2 | | | C | PB0 | | | D | PB1 | | | E | PB2 | | | F | PB3 | | | H | PB4 | | | I | PB5 | | | K | PB6 | | | L | PB7 | | | M | PA2 | | | N | GND | | +------+------------------+-------------------+ 1 1 1 1 2 3 4 5 6 7 8 9 0 1 2 +--@-@-@-@-@-@-@-@-@-@-@-@--+ | | +--@-@-@-@-@-@-@-@-@-@-@-@--+ A B C D E F H J K L M N APPENDIX J PROGRAMS TO TRY We've included a number of useful programs for you to try with your Commodore 64. These programs will prove both entertaining and useful. start tok64 jotto.prg 100 print "{down}jotto{space*7}jim butterfield" 120 input "{down}want instructions";z$:if asc(z$)=78 goto 250 130 print "{down}try to guess the mystery 5-letter word" 140 print "{down}you must guess only legal 5-letter" 150 print "words, too..." 160 print "you will be told the number of matches" 170 print "(or 'jots') of your guess." 180 print "{down}hint: the trick is to vary slightly" 190 print " from one guess to the next; so that" 200 print " if you guess 'batch' and get 2 jots" 210 print " you might try 'botch' or 'chart'" 220 print " for the next guess..." 250 data bxbsf,ipccz,dbdif,esfbe,pggbm 260 data hpshf,ibudi,djwjm,kpmmz,lbzbl 270 data sbkbi,mfwfm,njnjd,boofy,qjqfs 280 data rvftu,sjwfs,qsftt,puufs,fwfou 290 data xfbwf,fyupm,nvtiz,afcsb,gjaaz 300 data uijdl,esvol,gmppe,ujhfs,gblfs 310 data cppui,mzjoh,trvbu,hbvaf,pxjoh 320 data uisff,tjhiu,bymft,hsvnq,bsfob 330 data rvbsu,dsffq,cfmdi,qsftt,tqbsl 340 data sbebs,svsbm,tnfmm,gspxo,esjgu 400 n=50 410 dim n$(n),z(5),y(5) 420 for j=1 to n: read n$(j): next j 430 t=ti 440 t=t/1000:if t>=1 then goto 440 450 z=rnd(-t) 500 g=0: n$=n$(rnd(1)*n+1) 510 print "{down}i have a five letter word:": if r>0 then 560 520 print "guess (with legal words)" 530 print "and i'll tell you how many" 540 print "'jots', or matching letters," 550 print "you have...." 560 g=g+1: input "your word";z$ 570 if len(z$)<>5 then print "you must guess a 5-letter word!": goto 560 580 v=0: h=0: m=0 590 for j=1 to 5 600 z=asc(mid$(z$,j,1)): y=asc(mid$(n$,j,1))-1: if y=64 then y=90 610 if z<65 or z>90 then print "that's not a word!": goto 560 620 if z=65 or z=69 or z=73 or z=79 or z=85 or z=89 then v=v+1 630 if z=y then m=m+1 640 z(j)=z: y(j)=y: next j 650 if m=5 goto 800 660 if v=0 or v=5 then print "come on..what kind of a word is that?":\ goto 560 670 for j=1 to 5: y=y(j) 680 for k=1 to 5: if y=z(k) then h=h+1:z(k)=0:goto 700 690 next k 700 next j 710 print"{up}{right*19}";h;"jots" 720 if g<30 goto 560 730 print "i'd better tell you.. word was '"; 740 for j=1 to 5: print chr$(y(j));: next j 750 print"'": goto 810 800 print "you got it in only";g;"guesses." 810 input "{down}another word";z$ 820 r=1: if asc(z$)<>78 goto 500 stop tok64 begin 644 jotto.prg M`0@F"&0`F2`B$4I/5%1/("`@("`@($I)32!"551415)&245,1"(`50AX`(4@ M(A%704Y4($E.4U1254-424].4R([6B0ZBR#&*%HD*;(W."")(#(U,`"%"((` MF2`B$51262!43R!'54534R!42$4@35E35$5262`U+4Q%5%1%4B!73U)$(@"Q M"(P`F2`B$5E/52!-55-4($=515-3($].3%D@3$5'04P@-2U,151415(B`,<( ME@"9(")73U)$4RP@5$]/+BXN(@#V"*``F2`B64]5(%=)3$P@0D4@5$],1"!4 M2$4@3E5-0D52($]&($U!5$-(15,B`!D)J@"9("(H3U(@)TI/5%,G*2!/1B!9 M3U52($=515-3+B(`1@FT`)D@(A%(24Y4.B!42$4@5%))0TL@25,@5$\@5D%2 M62!33$E'2%1,62(`=`F^`)D@(B`@1E)/32!/3D4@1U5%4U,@5$\@5$A%($Y% M6%0[(%-/(%1(050B`*()R`"9("(@($E&(%E/52!'54534R`G0D%40T@G($%. M1"!'150@,B!*3U13(@#-"=(`F2`B("!93U4@34E'2%0@5%)9("="3U1#2"<@ M3U(@)T-(05)4)R(`[0G<`)D@(B`@1D]2(%1(12!.15A4($=515-3+BXN(@`1 M"OH`@R!"6$)31BQ)4$-#6BQ$0D1)1BQ%4T9"12Q01T="30`U"@0!@R!(4%-( M1BQ)0E5$22Q$2E=*32Q+4$U-6BQ,0EI"3`!9"@X!@R!30DM"22Q-1E=&32Q. M2DY*1"Q"3T]&62Q12E%&4P!]"A@!@R!25D9452Q32E=&4RQ14T945"Q0555& M4RQ&5T9/50"A"B(!@R!81D)71BQ&655032Q.5E1)6BQ!1D-30BQ'2D%!6@#% M"BP!@R!524I$3"Q%4U9/3"Q'35!012Q52DA&4RQ'0DQ&4P#I"C8!@R!#4%!5 M22Q-6DI/2"Q44E9"52Q(0E9!1BQ06$I/2``-"T`!@R!525-&1BQ42DA)52Q" M64U&5"Q(4U9.42Q"4T9/0@`Q"TH!@R!25D)352Q$4T9&42Q#1DU$22Q14T94 M5"Q444)33`!5"U0!@R!30D5"4RQ35E-"32Q43D9-32Q'4U!83RQ%4TI'50!> M"Y`!3K(U,`!T"YH!AB!.)"A.*2Q:*#4I+%DH-2D`D`ND`8$@2K(Q(*0@3CH@ MAR!.)"A**3H@@B!*`)D+K@%4LE1)`+4+N`%4LE2M,3`P,#J+(%2QLC$@IR") M(#0T,`#!"\(!6K*[**M4*0#:"_0!1[(P.B!.)+).)"B[*#$IK$ZJ,2D`"PS^ M`9D@(A%)($A!5D4@02!&259%($Q%5%1%4B!73U)$.B(Z((L@4K$P(*<@-38P M`"P,"`*9(")'54534R`H5TE42"!,14=!3"!73U)$4RDB`$\,$@*9(")!3D0@ M22=,3"!414Q,(%E/52!(3U<@34%.62(`=`P<`ID@(B=*3U13)RP@3U(@34%4 M0TA)3D<@3$545$524RPB`(D,)@*9(")93U4@2$%612XN+BXB`*4,,`)'LD>J M,3H@A2`B64]54B!73U)$(CM:)`#A##H"BR##*%HD*;.Q-2"G()D@(EE/52!- M55-4($=515-3($$@-2U,151415(@5T]21"$B.B")(#4V,`#S#$0"5K(P.B!( MLC`Z($VR,``!#4X"@2!*LC$@I"`U`#4-6`):LL8HRBA:)"Q*+#$I*3H@6;+& M*,HH3B0L2BPQ*2FK,3H@BR!9LC8T(*<@6;(Y,`!G#6("BR!:LS8U(+`@6K$Y M,""G()D@(E1(050G4R!.3U0@02!73U)$(2(Z((D@-38P`)T-;`*+(%JR-C4@ ML"!:LC8Y(+`@6K(W,R"P(%JR-SD@L"!:LC@U(+`@6K(X.2"G(%:R5JHQ`*\- M=@*+(%JR62"G($VR3:HQ`,<-@`):*$HILEHZ(%DH2BFR63H@@B!*`-<-B@*+ M($VR-2")(#@P,``:#I0"BR!6LC`@L"!6LC4@IR"9(")#3TU%($].+BY72$%4 M($M)3D0@3T8@02!73U)$($E3(%1(050_(CH@B2`U-C``,`Z>`H$@2K(Q(*0@ M-3H@6;)9*$HI`%T.J`*!($NR,2"D(#4Z((L@6;):*$LI(*<@2+)(JC$Z6BA+ M*;(P.HD@-S`P`&4.L@*"($L`;0Z\`H(@2@"2#L8"F2*1'1T='1T='1T='1T= M'1T='1T='2([2#LB2D]44R(`HP[0`HL@1[,S,"")(#4V,`#-#MH"F2`B22=$ M($)%5%1%4B!414Q,(%E/52XN(%=/4D0@5T%3("<B.P#L#N0"@2!*LC$@I"`U M.B"9(,<H62A**2D[.B""($H`_`[N`IDB)R(Z((D@.#$P`"0/(`.9(")93U4@ M1T]4($E4($E.($].3%DB.T<[(D=515-315,N(@`]#RH#A2`B$4%.3U1(15(@ F5T]21"([6B0`6`\T`U*R,3H@BR#&*%HD*;.Q-S@@B2`U,#`````` ` end start tok64 sequence.prg 1 rem *** sequence 2 rem 3 rem *** from pet user group 4 rem *** software exchange 5 rem *** po box 371 6 rem *** montgomeryville, pa 18936 7 rem *** 50 dim a$(26) 100 z$="abcdefghijklmnopqrstuvwxyz" 110 z1$="12345678901234567890123456" 200 print "{clear}{down*2}enter length of string to be sequenced{down}" 220 input "maximum length is 26 ";s% 230 if s%<1 or s%>26 then 200 240 s=s% 300 for i=1 to s 310 a$(i)=mid$(z$,i,1) 320 next i 400 rem randomize string 420 for i=1 to s 430 k=int(rnd(1)*s+1) 440 t$=a$(i) 450 a$(i)=a$(k) 460 a$(k)=t$ 470 next i 480 gosub 950 595 t=0 600 rem rverse substring 605 t=t+1 610 input "how many to reverse ";r% 620 if r%=0 goto 900 630 if r%>0 and r%<=s goto 650 640 print "must be between 1 and ";s: goto 610 650 r=int(r%/2) 660 for i=1 to r 670 t$=a$(i) 680 a$(i)=a$(r%-i+1) 690 a$(r%-i+1)=t$ 700 next i 750 gosub 950 800 c=1: for i=2 to s 810 if a$(i)>a$(i+1) goto 830 820 c=0 830 next i 840 if c=0 goto 600 850 print "{down}you did it in ";t;" tries" 900 rem check for another game 910 input "{down}want to play again ";y$ 920 if left$(y$,1)="y" or y$="ok" or y$="1" goto 200 930 end 950 print 960 print left$(z1$,s) 970 for i=1 to s: print a$(i);: next i 980 print "{down}" 990 return stop tok64 begin 644 sequence.prg M`0@4"`$`CR`J*BH@4T51545.0T4`&@@"`(\`.`@#`(\@*BHJ($923TT@4$54 M(%5315(@1U)/55``5`@$`(\@*BHJ(%-/1E1705)%($580TA!3D=%`&D(!0"/ M("HJ*B!03R!"3U@@,S<Q`(T(!@"/("HJ*B!-3TY41T]-15)95DE,3$4L(%!! M(#$X.3,V`)<(!P"/("HJ*@"D"#(`AB!!)"@R-BD`R`AD`%HDLB)!0D-$149' M2$E*2TQ-3D]045)35%565UA96B(`[0AN`%HQ)+(B,3(S-#4V-S@Y,#$R,S0U M-C<X.3`Q,C,T-38B`"`)R`"9("*3$1%%3E1%4B!,14Y'5$@@3T8@4U1224Y' M(%1/($)%(%-%455%3D-%1!$B`$$)W`"%(")-05A)355-($Q%3D=42"!)4R`R M-B`B.U,E`%H)Y@"+(%,ELS$@L"!3);$R-B"G(#(P,`!C"?``4[)3)0!Q"2P! M@2!)LC$@I"!3`(4)-@%!)"A)*;+**%HD+$DL,2D`C0E``8(@20"D"9`!CR!2 M04Y$3TU)6D4@4U1224Y'`+()I`&!($FR,2"D(%,`Q`FN`4NRM2B[*#$IK%.J M,2D`T0FX`50DLD$D*$DI`.$)P@%!)"A)*;)!)"A+*0#N"<P!020H2RFR5"0` M]@G6`8(@20``"N`!C2`Y-3``"`I3`E2R,``?"E@"CR!25D524T4@4U5"4U12 M24Y'`"D*70)4LE2J,0!)"F("A2`B2$]7($U!3ED@5$\@4D5615)312`B.U(E M`%H*;`*+(%(ELC`@B2`Y,#``<PIV`HL@4B6Q,""O(%(EL[)3((D@-C4P`)L* M@`*9(")-55-4($)%($)%5%=%14X@,2!!3D0@(CM3.B")(#8Q,`"I"HH"4K*U M*%(EK3(I`+<*E`*!($FR,2"D(%(`Q`J>`E0DLD$D*$DI`-D*J`)!)"A)*;)! M)"A2):M)JC$I`.L*L@)!)"A2):M)JC$ILE0D`/,*O`*"($D`_0KN`HT@.34P M`!`+(`-#LC$Z(($@2;(R(*0@4P`J"RH#BR!!)"A)*;%!)"A)JC$I((D@.#,P M`#(+-`-#LC``.@L^`X(@20!*"T@#BR!#LC`@B2`V,#``;0M2`YD@(A%93U4@ M1$E$($E4($E.("([5#LB(%122453(@"*"X0#CR!#2$5#2R!&3U(@04Y/5$A% M4B!'04U%`*H+C@.%("(15T%.5"!43R!03$%9($%'04E.("([620`U0N8`XL@ MR"A9)"PQ*;(B62(@L"!9)+(B3TLB(+`@622R(C$B((D@,C`P`-L+H@.``.$+ MM@.9`/`+P`.9(,@H6C$D+%,I``T,R@.!($FR,2"D(%,Z()D@020H22D[.B"" 5($D`%PS4`YD@(A$B`!T,W@..```` ` end start tok64 pianokey.prg 90 REM piano keyboard 100 PRINT"{CLEAR} {REVERSE ON} {RIGHT} {RIGHT} {194} {RIGHT} {RIGHT} \ {RIGHT} {194} {RIGHT} {RIGHT} {194} {RIGHT} {RIGHT} " 110 PRINT" {REVERSE ON} {RIGHT} {RIGHT} {194} {RIGHT} {RIGHT} {RIGHT} \ {194} {RIGHT} {RIGHT} {194} {RIGHT} {RIGHT} " 120 PRINT" {REVERSE ON} {RIGHT} {RIGHT} {194} {RIGHT} {RIGHT} {RIGHT} \ {194} {RIGHT} {RIGHT} {194} {RIGHT} {RIGHT} " 130 PRINT" {REVERSE ON} {194} {194} {194} {194} {194} {194} {194} \ {194} {194} {194} {194} {194} " 140 PRINT" {REVERSE ON}q{194}w{194}e{194}r{194}t{194}y{194}u{194} \ i{194}o{194}p{194}@{194}*{194}^" 150 PRINT"{DOWN}'space' for solo or polyphonic" 160 PRINT"{DOWN}'f1,f3,f5,f7' octave selection" 170 PRINT"{DOWN}'f2,f4,f6,f8' waveform{DOWN}" 180 PRINT"hang on, setting up frequency table..." 190 S=13*4096+1024: DIM F(26): DIM K(255) 200 FOR I=0 TO 28: POKE S+I,0: NEXT 210 F1=7040: FOR I=1 TO 26: F(27-I)=F1*5.8+30: F1=F1/2^(1/12): NEXT 220 K$="q2w3er5t6y7ui9o0p@-*\^" 230 FOR I=1 TO LEN(K$): K(ASC(MID$(K$,I)))=I: NEXT 240 PRINT "{UP}{SPACE*38}" 250 AT=0:DE=0:SU=15:RE=9:SV=SU*16+RE:AV=AT*16+DE:WV=16:W=0:M=1:OC=4:\ HB=256:Z=0 260 FOR I=0 TO 2: POKE S+5+I*7,AT*16+DE: POKES+6+I*7,SU*16+RE 270 POKE S+2+I*7,4000 AND 255: POKE S+3+I*7,4000/256: NEXT 280 POKE S+24,15: REM+16+64:poke s+23,7 300 GET A$:IF A$="" THEN 300 310 FR=F(K(ASC(A$)))/M: T=V*7: CR=S+T+4: IF FR=Z THEN 500 320 POKE S+6+T,Z: REM finish dec/sus 325 POKE S+5+T,Z: REM finish att/rel 330 POKE CR,8: POKE CR,0: REM fix off 340 POKE S+T,FR-HB*INT(FR/HB): REM set lo 350 POKE S+1+T,FR/HB: REM set hi 360 POKE S+6+T,SV: REM set dec/sus 365 POKE S+5+T,AV: REM set att/rel 370 POKE CR,WV+1: FOR I=1 TO 50*AT: NEXT 375 POKE CR,WV: REM pulse 380 IF P=1 THEN V=V+1: IF V=3 THEN V=0 400 GOTO 300 500 IF A$="{F1}" THEN M=1: OC=4: GOTO 300 510 IF A$="{F3}" THEN M=2: OC=3: GOTO 300 520 IF A$="{F5}" THEN M=4: OC=2: GOTO 300 530 IF A$="{F7}" THEN M=8: OC=1: GOTO 300 540 IF A$="{F2}" THEN W=0: WV=16: GOTO 300 550 IF A$="{F4}" THEN W=1: WV=32: GOTO 300 560 IF A$="{F6}" THEN W=2: WV=64: GOTO300 570 IF A$="{F8}" THEN W=3: WV=128: GOTO300 580 IF A$=" " THEN P=1-P: GOTO 300 590 IF A$="{CLEAR}" THEN 200 600 GOTO 300 800 PRINT"hit a key" 810 GET A$: IF A$="" THEN 810: WAIT FOR A KEY 820 PRINT A$: RETURN stop tok64 begin 644 pianokey.prg M`0@6"%H`CR!024%.3R!+15E"3T%21``Z"&0`F2*3(!(@'2`=(,(@'2`=(!T@ MPB`=(!T@PB`=(!T@(@!="&X`F2(@$B`=(!T@PB`=(!T@'2#"(!T@'2#"(!T@ M'2`B`(`(>`"9(B`2(!T@'2#"(!T@'2`=(,(@'2`=(,(@'2`=("(`HPB"`)DB M(!(@PB#"(,(@PB#"(,(@PB#"(,(@PB#"(,(@(@#&"(P`F2(@$E'"5\)%PE+" M5,)9PE7"2<)/PE#"0,(JPEXB`.T(E@"9(A$G4U!!0T4G($9/4B!33TQ/($]2 M(%!/3%E02$].24,B`!0)H`"9(A$G1C$L1C,L1C4L1C<G($]#5$%612!314Q% M0U1)3TXB`#0)J@"9(A$G1C(L1C0L1C8L1C@G(%=!5D5&3U)-$2(`8@FT`)DB M2$%.1R!/3BP@4T545$E.1R!54"!&4D51545.0UD@5$%"3$4N+BXB`(@)O@!3 MLC$SK#0P.3:J,3`R-#H@AB!&*#(V*3H@AB!+*#(U-2D`HPG(`($@2;(P(*0@ M,C@Z()<@4ZI)+#`Z(((`X0G2`$8QLC<P-#`Z(($@2;(Q(*0@,C8Z($8H,C>K M22FR1C&L-2XXJC,P.B!&,;)&,:TRKB@QK3$R*3H@@@`!"MP`2R2R(E$R5S-% M4C54-EDW54DY3S!00"TJ7%XB`"<*Y@"!($FR,2"D(,,H2R0I.B!+*,8HRBA+ M)"Q)*2DILDDZ(((`5PKP`)D@(I$@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("(`I@KZ`$%4LC`Z1$6R,#I35;(Q-3I21;(Y.E-6LE-5 MK#$VJE)%.D%6LD%4K#$VJD1%.E=6LC$V.E>R,#I-LC$Z3T.R-#I(0K(R-38Z M6K(P`-L*!`&!($FR,""D(#(Z()<@4ZHUJDFL-RQ!5*PQ-JI$13H@EU.J-JI) MK#<L4U6L,3:J4D4`"PL.`9<@4ZHRJDFL-RPT,#`P(*\@,C4U.B"7(%.J,ZI) MK#<L-#`P,*TR-38Z(((`+@L8`9<@4ZHR-"PQ-3H@CRLQ-BLV-#I03TM%(%,K M,C,L-P!%"RP!H2!!)#J+($$DLB(B(*<@,S`P`'D+-@%&4K)&*$LHQBA!)"DI M*:U-.B!4LE:L-SH@0U*R4ZI4JC0Z((L@1E*R6B"G(#4P,`"9"T`!ER!3JC:J M5"Q:.B"/($9)3DE32"!$14,O4U53`+D+10&7(%.J-:I4+%HZ((\@1DE.25-( M($%45"]214P`UPM*`9<@0U(L.#H@ER!#4BPP.B"/($9)6"!/1D8`^@M4`9<@ M4ZI4+$92JTA"K+4H1E*M2$(I.B"/(%-%5"!,3P`6#%X!ER!3JC&J5"Q&4JU( M0CH@CR!3150@2$D`-`QH`9<@4ZHVJE0L4U8Z((\@4T54($1%0R]355,`4@QM M`9<@4ZHUJE0L058Z((\@4T54($%45"]214P`<@QR`9<@0U(L5U:J,3H@@2!) MLC$@I"`U,*Q!5#H@@@"'#'<!ER!#4BQ75CH@CR!054Q310"F#'P!BR!0LC$@ MIR!6LE:J,3H@BR!6LC,@IR!6LC``L`R0`8D@,S`P`-`,]`&+($$DLB*%(B"G M($VR,3H@3T.R-#H@B2`S,#``\`S^`8L@022R(H8B(*<@3;(R.B!/0[(S.B") M(#,P,``0#0@"BR!!)+(BAR(@IR!-LC0Z($]#LC(Z((D@,S`P`#`-$@*+($$D MLB*((B"G($VR.#H@3T.R,3H@B2`S,#``40T<`HL@022R(HDB(*<@5[(P.B!7 M5K(Q-CH@B2`S,#``<@TF`HL@022R(HHB(*<@5[(Q.B!75K(S,CH@B2`S,#`` MD@TP`HL@022R(HLB(*<@5[(R.B!75K(V-#H@B3,P,`"S#3H"BR!!)+(BC"(@ MIR!7LC,Z(%=6LC$R.#H@B3,P,`#/#40"BR!!)+(B("(@IR!0LC&K4#H@B2`S M,#``X@U.`HL@022R(I,B(*<@,C`P`.P-6`*)(#,P,`#]#2`#F2)(250@02!+ M15DB`"`.*@.A($$D.B"+($$DLB(B(*<@.#$P.B"2(($@02!+15D`+`XT`YD@ (020Z((X````` ` end APPENDIX K CONVERTING STANDARD BASIC PROGRAMS TO COMMODORE 64 BASIC If you have programs written in a BASIC other than Commodore BASIC, some minor adjustments may be necessary before running them on the Commodore-64. We've included some hints to make the conversion easier. String Dimensions Delete all statements that are used to declare the length of strings. A statement such as DIM A$(I,J), which dimensions a string array for J elements of length I, should be converted to the Commodore BASIC statement DIM A$(J). Some BASICs use a comma or an ampersand for string concatenation. Each of these must be changed to a plus sign, which is the Commodore BASIC operator for string concatenation. In Commodore-64 BASIC, the MID$, RIGHT$, and LEFT$ functions are used to take substrings of strings. Forms such as A$(I) to access the Ith character in A$, or A$(I,J) to take a substring of A$ from position I to J, must be changed as follows: Other BASIC Commodore 64 BASIC A$(I)=X$ A$=LEFT$(A$,I-1)+X$+MID$(A$,I+1) A$(I,J)=X$ A$=LEFT$(A$,I-1)+X$+MID$(A$,J+1) Multiple Assignments To set B and C equal to zero, some BASICs allow statements of the form: 10 LET B=C=0 Commodore 64 BASIC would interpret the second equal sign as a logical operator and set B = -1 if C = 0. Instead, convert this statement to: 10 C=0:B=0 Multiple Statements Some BASICs use a backslash to separate multiple statements on a line. With Commodore 64 BASIC, separate all statements by a colon (:). MAT Functions Programs using the MAT functions available on some BASICs must be rewritten using FOR...NEXT loops to execute properly. APPENDIX L ERROR MESSAGES This appendix contains a complete list of the error messages generated by the Commodore-64, with a description of causes. BAD DATA String data was received from an open file, but the program was expecting numeric data. BAD SUBSCRIPT The program was trying to reference an element of an array whose number is outside of the range specified in the DIM statement. BREAK Program execution was stopped because you hit the <STOP> key. CAN'T CONTINUE The CONT command will not work, either because the program was never RUN, there has been an error, or a line has been edited. DEVICE NOT PRESENT The required I/O device was not available for an OPEN, CLOSE, CMD, PRINT#, INPUT#, or GET#. DIVISION BY ZERO Division by zero is a mathematical oddity and not allowed. EXTRA IGNORED Too many items of data were typed in response to an INPUT statement. Only the first few items were accepted. FILE NOT FOUND If you were looking for a file on tape, and END-OF- TAPE marker was found. If you were looking on disk, no file with that name exists. FILE NOT OPEN The file specified in a CLOSE, CMD, PRINT#, INPUT#, or GET#, must first be OPENed. FILE OPEN An attempt was made to open a file using the number of an already open file. FORMULA TOO COMPLEX The string expression being evaluated should be split into at least two parts for the system to work with, or a formula has too many parentheses. ILLEGAL DIRECT The INPUT statement can only be used within a program, and not in direct mode. ILLEGAL QUANTITY A number used as the argument of a function or statement is out of the allowable range. LOAD There is a problem with the program on tape. NEXT WITHOUT FOR This is caused by either incorrectly nesting loops or having a variable name in a NEXT statement that doesn't correspond with one in a FOR statement. NOT INPUT FILE An attempt was made to INPUT or GET data from a file which was specified to be for output only. NOT OUTPUT FILE An attempt was mode to PRINT data to a file which was specified as input only. OUT OF DATA A READ statement was executed but there is no data left unREAD in a DATA statement. OUT OF MEMORY There is no more RAM available for program or variables. This may also occur when too many FOR loops have been nested, or when there are too many GOSUBs in effect. OVERFLOW The result of a computation is larger than the largest number allowed, which is 1.70141884E+38. REDIM'D ARRAY An array may only be DIMensioned once. If an array variable is used before that array is DIM'd, an automatic DIM operation is performed on that array setting the number of elements to ten, and any subsequent DIMs will cause this error. REDO FROM START Character data was typed in during an INPUT statement when numeric data was expected. Just re- type the entry so that it is correct, and the program will continue by itself. RETURN WITHOUT GOSUB A RETURN statement was encountered, and no GOSUB command has been issued. STRING TOO LONG A string can contain up to 255 characters. SYNTAX ERROR A statement is unrecognizable by the Commodore 64. A missing or extra parenthesis, misspelled keywords, etc. TYPE MISMATCH This error occurs when a number is used in place of a string, or vice-versa. UNDEF'D FUNCTION A user defined function was referenced, but it has never been defined using the DEF FN statement. UNDEF'D STATEMENT An attempt was made to GOTO or GOSUB or RUN a line number that doesn't exist. VERIFY The program on tape or disk does not match the program currently in memory. VERIFY The program on tape or disk does not match the program currently in memory. APPENDIX M MUSIC NOTE VALUES This appendix contains a complete list of Note#, actual note, and the values to be POKED into the HI FREQ and LOW FREQ registers of the sound chip to produce the indicated note. +-----------------------------+-----------------------------------------+ | MUSICAL NOTE | OSCILLATOR FREQ | +-------------+---------------+-------------+-------------+-------------+ | NOTE | OCTAVE | DECIMAL | HI | LOW | +-------------+---------------+-------------+-------------+-------------+ | 0 | C-0 | 268 | 1 | 12 | | 1 | C#-0 | 284 | 1 | 28 | | 2 | D-0 | 301 | 1 | 45 | | 3 | D#-0 | 318 | 1 | 62 | | 4 | E-0 | 337 | 1 | 81 | | 5 | F-0 | 358 | 1 | 102 | | 6 | F#-0 | 379 | 1 | 123 | | 7 | G-0 | 401 | 1 | 145 | | 8 | G#-0 | 425 | 1 | 169 | | 9 | A-0 | 451 | 1 | 195 | | 10 | A#-0 | 477 | 1 | 221 | | 11 | B-0 | 506 | 1 | 250 | | 16 | C-1 | 536 | 2 | 24 | | 17 | C#-1 | 568 | 2 | 56 | | 18 | D-1 | 602 | 2 | 90 | | 19 | D#-1 | 637 | 2 | 125 | | 20 | E-1 | 675 | 2 | 163 | | 21 | F-1 | 716 | 2 | 204 | | 22 | F#-1 | 758 | 2 | 246 | | 23 | G-1 | 803 | 3 | 35 | | 24 | G#-1 | 851 | 3 | 83 | | 25 | A-1 | 902 | 3 | 134 | | 26 | A#-1 | 955 | 3 | 187 | | 27 | B-1 | 1012 | 3 | 244 | | 32 | C-2 | 1072 | 4 | 48 | | 33 | C#-2 | 1136 | 4 | 112 | | 34 | D-2 | 1204 | 4 | 180 | | 35 | D#-2 | 1275 | 4 | 251 | | 36 | E-2 | 1351 | 5 | 71 | | 37 | F-2 | 1432 | 5 | 152 | | 38 | F#-2 | 1517 | 5 | 237 | | 39 | G-2 | 1607 | 6 | 71 | | 40 | G#-2 | 1703 | 6 | 167 | | 41 | A-2 | 1804 | 7 | 12 | | 42 | A#-2 | 1911 | 7 | 119 | | 43 | B-2 | 2025 | 7 | 233 | | 48 | C-3 | 2145 | 8 | 97 | | 49 | C#-3 | 2273 | 8 | 225 | | 50 | D-3 | 2408 | 9 | 104 | | 51 | D#-3 | 2551 | 9 | 247 | | 52 | E-3 | 2703 | 10 | 143 | | 53 | F-3 | 2864 | 11 | 48 | | 54 | F#-3 | 3034 | 11 | 218 | | 55 | G-3 | 3215 | 12 | 143 | | 56 | G#-3 | 3406 | 13 | 78 | | 57 | A-3 | 3608 | 14 | 24 | | 58 | A#-3 | 3823 | 14 | 239 | | 59 | B-3 | 4050 | 15 | 210 | | 64 | C-4 | 4291 | 16 | 195 | | 65 | C#-4 | 4547 | 17 | 195 | | 66 | D-4 | 4817 | 18 | 209 | | 67 | D#-4 | 5103 | 19 | 239 | | 68 | E-4 | 5407 | 21 | 31 | | 69 | F-4 | 5728 | 22 | 96 | | 70 | F#-4 | 6069 | 23 | 181 | | 71 | G-4 | 6430 | 25 | 30 | | 72 | G#-4 | 6812 | 26 | 156 | | 73 | A-4 | 7217 | 28 | 49 | | 74 | A#-4 | 7647 | 29 | 223 | | 75 | B-4 | 8101 | 31 | 165 | | 80 | C-5 | 8583 | 33 | 135 | | 81 | C#-5 | 9094 | 35 | 134 | | 82 | D-5 | 9634 | 37 | 162 | | 83 | D#-5 | 10207 | 39 | 223 | | 84 | E-5 | 10814 | 42 | 62 | | 85 | F-5 | 11457 | 44 | 193 | | 86 | F#-5 | 12139 | 47 | 107 | | 87 | G-5 | 12860 | 50 | 60 | | 88 | G#-5 | 13625 | 53 | 57 | | 89 | A-5 | 14435 | 56 | 99 | | 90 | A#-5 | 15294 | 59 | 190 | | 91 | B-5 | 16203 | 63 | 75 | | 96 | C-6 | 17167 | 67 | 15 | | 97 | C#-6 | 18188 | 71 | 12 | | 98 | D-6 | 19269 | 75 | 69 | | 99 | D#-6 | 20415 | 79 | 191 | | 100 | E-6 | 21629 | 84 | 125 | | 101 | F-6 | 22915 | 89 | 131 | | 102 | F#-6 | 24278 | 94 | 214 | | 103 | G-6 | 25721 | 100 | 121 | | 104 | G#-6 | 27251 | 106 | 115 | | 105 | A-6 | 28871 | 112 | 199 | | 106 | A#-6 | 30588 | 119 | 124 | | 107 | B-6 | 32407 | 126 | 151 | | 112 | C-7 | 34334 | 134 | 30 | | 113 | C#-7 | 36376 | 142 | 24 | | 114 | D-7 | 38539 | 150 | 139 | | 115 | D#-7 | 40830 | 159 | 126 | | 116 | E-7 | 43258 | 168 | 250 | | 117 | F-7 | 45830 | 179 | 6 | | 118 | F#-7 | 48556 | 189 | 172 | | 119 | G-7 | 51443 | 200 | 243 | | 120 | G#-7 | 54502 | 212 | 230 | | 121 | A-7 | 57743 | 225 | 143 | | 122 | A#-7 | 61176 | 238 | 248 | | 123 | B-7 | 64814 | 253 | 46 | +-------------+---------------+-------------+-------------+-------------+ FILTER SETTINGS +------------+--------------------------------+ | Location | Contents | +------------+--------------------------------+ | 54293 | Low cutoff frequency (0-7) | | 54294 | High cutoff frequency (0-255) | | 54295 | Resonance (bits 4-7) | | | Filter voice 3 (bit 2) | | | Filter voice 2 (bit 1) | | | Filter voice 1 (bit 0) | | 54296 | High pass (bit 6) | | | Bandpass (bit 5) | | | Low pass (bit 4) | | | Volume (bits 0-3) | +------------+--------------------------------+ APPENDIX N BIBLIOGRAPHY Addison-Wesley "BASIC and the Personal Computer", Dwyer and Critchfield Compute "Compute's First Book of PET/CBM" Cowbay Computing "Feed Me, I'm Your PET Computer", Carol Alexander "Looking Good with Your PET", Carol Alexander "Teacher's PET-Plans, Quizzes, and Answers" Creative Computing "Getting Acquainted With Your VIC 20", T. Hartnell Dilithium Press "BASIC Basic-English Dictionary for the PET", Lorry Noonan "PET BASIC", Tom Rugg and Phil Feldman Faulk Baker Associates "MOS Programming Manual", MOS Technology Hoyden Book Co. "BASIC From the Ground Up", David E. Simon "I Speak BASIC to My PET", Aubrey Jones, Jr. "Library of PET Subroutines',', Nick Hampshire "PET Graphics", Nick Hampshire "BASIC Conversions Handbook, Apple, TRS-80, and PET", David A. Brain, Phillip R. Oviatt, Paul J. Paquin, and Chandler P. Stone Howard W. Sams "The Howard W. Sams Crash Course in Microcomputers", Louis E. Frenzel, Jr. "Mostly BASIC: Applications for Your PET", Howard Berenbon "PET Interfacing", James M. Downey and Steven M. Rogers "VIC 20 Programmer's Reference Guide", A. Finkel, P. Higginbottom, N. Harris, and M. Tomczyk Little, Brown & Co. "Computer Games for Businesses, Schools, and Homes", J. Victor Nagigian, and William S. Hodges "The Computer Tutor: Learning Activities for Homes and Schools", Gary W. Orwig, University of Central Florida, and William S. Hodges McGraw-Hill "Hands-On BASIC With a PET", Herbert D. Peckman "Home and Office Use of VisiCalc", D. Castlewitz, and L. Chisauki Osborne/McGraw-Hill "PET/CBM Personal Computer Guide", Carroll S. Donahue "PET Fun and Games", R. Jeffries and G. Fisher "PET and the IEEE", A. Osborne and C. Donahue "Some Common BASIC Programs for the PET", L. Poole, M. Borchers, and C. Donahue "Osborne CP/M User Guide", Thorn Hogan "CBM Professional Computer Guide" "The PET Personal Guide" "The 8086 Book", Russell Rector and George Alexy P. C. Publications "Beginning Self-Teaching Computer Lessons" Prentice-Hall "The PET Personal Computer for Beginners", S. Dunn and V. Morgan Reston Publishing Co. "PET and the IEEE 488 Bus (GPIB)", Eugene Fisher and C. W. Jensen "PET BASIC-Training Your PET Computer", Roman Zamora, Wm. F. Carrie, and B. Allbrecht "PET Games and Recreation", M. Ogelsby, L. Lindsey, and D. Kunkin "PET BASIC", Richard Huskell "VIC Games and Recreation" Telmas Courseware "BASIC and the Personal Computer", T. A. Dwyer, Ratings and M. Critchfield Total Information "Understanding Your PET/CBM, Vol. 1, BASIC Services Programming" "Understanding Your VIC", David Schultz Commodore Magazines provide you with the most up-to-date information for your Commodore 64. Two of the most popular publications that you should seriously consider subscribing to are: COMMODORE -- The Microcomputer Magazine is published bimonthly and is available by subscription ($15.00 per year, U.S., and $25.00 per year, worldwide). POWER/PLAY -- The Home Computer Magazine is, published quarterly and is available by subscription ($10.00 per year, U.S., and $15.00 per year worldwide). APPENDIX O SPRITE REGISTER MAP +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ |Register#| | | | | | | | | | | Dec Hex | DB7 | DB6 | DB5 | DB4 | DB3 | DB2 | DB1 | DB0 | | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 0 0 |S0X7 | | | | | | |S0X0 |SPRITE 0 X | | | | | | | | | | |Component | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 1 1 |S0Y7 | | | | | | |S0Y0 |SPRITE 0 Y | | | | | | | | | | |Component | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 2 2 |S1X7 | | | | | | |S1X0 |SPRITE 1 X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 3 3 |S1Y7 | | | | | | |S1Y0 |SPRITE 1 Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 4 4 |S2X7 | | | | | | |S2X0 |SPRITE 2 X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 5 5 |S2Y7 | | | | | | |S2Y0 |SPRITE 2 Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 6 6 |S3X7 | | | | | | |S3X0 |SPRITE 3 X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 7 7 |S3Y7 | | | | | | |S3Y0 |SPRITE 3 Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 8 8 |S4X7 | | | | | | |S4X0 |SPRITE 4 X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 9 9 |S4Y7 | | | | | | |S4Y0 |SPRITE 4 Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 10 A |S5X7 | | | | | | |S5X0 |SPRITE 5 X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 11 B |S5Y7 | | | | | | |S5Y0 |SPRITE 5 Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 12 C |S6X7 | | | | | | |S6X0 |SPRITE 6 X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 13 D |S6Y7 | | | | | | |S6Y0 |SPRITE 6 Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 14 E |S7X7 | | | | | | |S7X0 |SPRITE 7 X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 15 F |S7Y7 | | | | | | |S7Y0 |SPRITE 7 Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 16 10 |S7X8 |S6X8 |S5X8 |S4X8 |S3X8 |S2X8 |S1X8 |S0X8 |MSB of X | | | | | | | | | | |COORD. | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 17 11 | RC8 | ECM | BMM |BLNK |RSEL |YSCL2|YSCL1|YSCL0|Y SCROLL | | | | | | | | | | |Mode | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 18 12 | RC7 | RC6 | RC5 | RC4 | RC3 | RC2 | RC1 | RC0 |RASTER | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 19 13 |LPX7 | | | | | | |LPX0 |LIGHT PEN X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 20 14 |LPY7 | | | | | | |LPY0 |LIGHT PEN Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 21 15 | SE7 | | | | | | | SE0 |SPRITE | | | | | | | | | | |ENABLE | | | | | | | | | | |(ON/OFF) | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 22 16 |N.C. |N.C. | RST | MCM |CSEL |XSCL2|XSCL1|XSCL0|X SCROLL | | | | | | | | | | |MODE | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 23 17 |SEX7 | | | | | | |SEX0 |SPRITE | | | | | | | | | | |EXPAND Y | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 24 18 |VS13 |VS12 |VS11 |VS10 |CB13 |CB12 |CB11 |N.C. |SCREEN | | | | | | | | | | |Character | | | | | | | | | | |Memory | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 25 19 |IRQ |N.C. |N.C. |N.C. |LPIRQ|ISSC |ISBC |RIRIQ|Interrupt | | | | | | | | | | |Request's | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 26 1A |N.C. |N.C. |N.C. |N.C. |MLPI |MISSC|MISBC|MRIRQ|Interrupt | | | | | | | | | | |Request | | | | | | | | | | |MASKS | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 27 1B |BSP7 | | | | | | |BSP0 |Background | | | | | | | | | | |Sprite | | | | | | | | | | |PRIORITY | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 28 1C |SCM7 | | | | | | |SCM0 |MULTICOLOR | | | | | | | | | | |SPRITE | | | | | | | | | | |SELECT | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 29 1D |SEXX7| | | | | | |SEXX0|SPRITE | | | | | | | | | | |EXPAND X | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 30 1E |SSC7 | | | | | | |SSC0 |Sprite-Sprite| | | | | | | | | | |COLLISION | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ | 31 1F |SBC7 | | | | | | |SBC0 |Sprite- | | | | | | | | | | |Background | | | | | | | | | | |COLLISION | +---------+-----+-----+-----+-----+-----+-----+-----+-----+-------------+ COLOR CODES DEC HEX COLOR +---------+-----------------------+-----+-----+-----+-----+-------------+ | 32 20 | 0 0 BLACK |EXT 1| | | |EXTERIOR COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 33 21 | 1 1 WHITE |BKGD0| | | |BACKGROUND 0 | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 34 22 | 2 2 RED |BKGD1| | | |BACKGROUND 1 | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 35 23 | 3 3 CYAN |BKGD2| | | |BACKGROUND 2 | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 36 24 | 4 4 PURPLE |BKGD3| | | |BACKGROUND 3 | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 37 25 | 5 5 GREEN |SMC 0| | | | SPRITE | | | | | | | |MULTICOLOR 0 | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 38 26 | 6 6 BLUE |SMC 1| | | | SPRITE | | | | | | | |MULTICOLOR 1 | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 39 27 | 7 7 YELLOW |S0COL| | | |SPRITE 0 COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 40 28 | 8 8 ORANGE |S1COL| | | |SPRITE 1 COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 41 29 | 9 9 BROWN |S2COL| | | |SPRITE 2 COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 42 2A | 10 A LT RED |S3COL| | | |SPRITE 3 COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 43 2B | 11 B GRAY 1 |S4COL| | | |SPRITE 4 COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 44 2C | 12 C GRAY 2 |S5COL| | | |SPRITE 5 COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 45 2D | 13 D LT GREEN |S6COL| | | |SPRITE 6 COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | 46 2E | 14 E LT BLUE |S7COL| | | |SPRITE 7 COL | +---------+-----------------------+-----+-----+-----+-----+-------------+ | | 15 F GRAY 3 | | | | | | +---------+-----------------------+-----+-----+-----+-----+-------------+ LEGEND: ONLY COLORS 0-7 MAY BE USED IN MULTICOLOR CHARACTER MODE. APPENDIX P COMMODORE 64 SOUND CONTROL SETTINGS This handy table gives you the key numbers you need to use in your sound programs, according to which of the Commodore 64's 3 voices you want to use. To set or adjust a sound control in your BASIC program, just POKE the number from the second column, followed by a comma (,) and a number from the chart ... like this: POKE 54276,17 (Selects a Triangle Waveform for VOICE 1). Remember that you must set the VOLUME before you can generate sound. POKE 54296 followed by a number from 0 to 15 sets the volume for all 3 voices. It takes 2 separate POKEs to generate each musical note ... for example POKE 54273,34: POKE 54272,75 designates low C in the sample scale bellow. Also ... you aren't limited to the numbers shown in the tables. If 34 doesn't sound "right" for a low C, try 35. To provide a higher SUSTAIN or ATTACK rate than those shown, add two or more SUSTAIN numbers together. (Examples: POKE 54277,96 combines two attack rates (32 and 64) for a combined higher attack rate ... but ... POKE 54277,20 provides a low attack rate (16) and a medium decay rate (4). +----------------------------------------------------------------------------+ |SETTING VOLUME -- SAME FOR ALL 3 VOICES | +--------------+---------+---------------------------------------------------+ |VOLUME CONTROL|POKE54296| Settings from 0 (off) to 15 (loudest) | +--------------+---------+---------------------------------------------------+ VOICE NUMBER 1 +--------------+---------+---------------------------------------------------+ |TO CONTROL |POKE THIS| FOLLOWED BY ONE OF THESE NUMBERS | |THIS SETTING: |NUMBER: | (0 to 15 ... or ... 0 to 255 depending on range) | +--------------+---------+---------------------------------------------------+ |TO PLAY A NOTE| C | C#| D | D#| E | F | F#| G | G#| A | A#| B | C | C#| |HIGH FREQUENCY|54273 34 | 36| 38| 40| 43| 45| 48| 51| 54| 57| 61| 64| 68| 72| |LOW FREQUENCY |54272 75 | 85|126|200| 52|198|127| 97|111|172|126|188|149|169| +--------------+---------+------------+------------+------------+------------+ |WAVEFORM | POKE | TRIANGLE | SAWTOOTH | PULSE | NOISE | | | 54276 | 17 | 33 | 65 | 129 | +--------------+---------+------------+------------+------------+------------+ |PULSE RATE (Pulse Waveform) | |HI POLSE | 54275 | A value of 0 to 15 (for Pulse waveform only) | |LO POLSE | 54274 | A value of 0 to 255 (for Pulse waveform only) | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ |ATTACK/ | POKE | ATK4 | ATK3 | ATK2 | ATK1 | DEC4| DEC3| DEC2| DEC1| | DECAY | 54277 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ |SUSTAIN/ | POKE | SUS4 | SUS3 | SUS2 | SUS1 | REL4| REL3| REL2| REL1| | RELEASE| 54278 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ VOICE NUMBER 2 +--------------+---------+---------------------------------------------------+ |TO CONTROL |POKE THIS| FOLLOWED BY ONE OF THESE NUMBERS | |THIS SETTING: |NUMBER: | (0 to 15 ... or ... 0 to 255 depending on range) | +--------------+---------+---------------------------------------------------+ |TO PLAY A NOTE| C | C#| D | D#| E | F | F#| G | G#| A | A#| B | C | C#| |HIGH FREQUENCY|54280 34 | 36| 38| 40| 43| 45| 48| 51| 54| 57| 61| 64| 68| 72| |LOW FREQUENCY |54279 75 | 85|126|200| 52|198|127| 97|111|172|126|188|149|169| +--------------+---------+------------+------------+------------+------------+ |WAVEFORM | POKE | TRIANGLE | SAWTOOTH | PULSE | NOISE | | | 54283 | 17 | 33 | 65 | 129 | +--------------+---------+------------+------------+------------+------------+ |PULSE RATE (Pulse Waveform) | |HI POLSE | 54282 | A value of 0 to 15 (for Pulse waveform only) | |LO POLSE | 54281 | A value of 0 to 255 (for Pulse waveform only) | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ |ATTACK/ | POKE | ATK4 | ATK3 | ATK2 | ATK1 | DEC4| DEC3| DEC2| DEC1| | DECAY | 54284 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ |SUSTAIN/ | POKE | SUS4 | SUS3 | SUS2 | SUS1 | REL4| REL3| REL2| REL1| | RELEASE| 54285 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ VOICE NUMBER 3 +--------------+---------+---------------------------------------------------+ |TO CONTROL |POKE THIS| FOLLOWED BY ONE OF THESE NUMBERS | |THIS SETTING: |NUMBER: | (0 to 15 ... or ... 0 to 255 depending on range) | +--------------+---------+---------------------------------------------------+ |TO PLAY A NOTE| C | C#| D | D#| E | F | F#| G | G#| A | A#| B | C | C#| |HIGH FREQUENCY|54287 34 | 36| 38| 40| 43| 45| 48| 51| 54| 57| 61| 64| 68| 72| |LOW FREQUENCY |54286 75 | 85|126|200| 52|198|127| 97|111|172|126|188|149|169| +--------------+---------+------------+------------+------------+------------+ |WAVEFORM | POKE | TRIANGLE | SAWTOOTH | PULSE | NOISE | | | 54290 | 17 | 33 | 65 | 129 | +--------------+---------+------------+------------+------------+------------+ |PULSE RATE (Pulse Waveform) | |HI POLSE | 54289 | A value of 0 to 15 (for Pulse waveform only) | |LO POLSE | 54288 | A value of 0 to 255 (for Pulse waveform only) | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ |ATTACK/ | POKE | ATK4 | ATK3 | ATK2 | ATK1 | DEC4| DEC3| DEC2| DEC1| | DECAY | 54291 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ |SUSTAIN/ | POKE | SUS4 | SUS3 | SUS2 | SUS1 | REL4| REL3| REL2| REL1| | RELEASE| 54292 | 128 | 64 | 32 | 16 | 8 | 4 | 2 | 1 | +--------------+---------+------+------+------+------+-----+-----+-----+-----+ TRY THESE SETTINGS TO SIMULATE DIFFERENT INSTRUMENTS +------------+----------+--------------+---------------+----------------+ | Instrument | Waveform | Attack/Decay |Sustain/Release| Pulse Rate | +------------+----------+--------------+---------------+----------------+ | Piano | Pulse | 9 | 0 | Hi-0, Lo-255 | | Flute | Triangle | 96 | 0 | Not applicable | | Harpsichord| Sawtooth | 9 | 0 | Not applicable | | Xylophone | Triangle | 9 | 0 | Not applicable | | Organ | Triangle | 0 | 240 | Not applicable | | Colliape | Triangle | 0 | 240 | Not applicable | | Accordian | Triangle | 102 | 0 | Not applicable | | Trumpet | Sawtooth | 96 | 0 | Not applicable | +------------+----------+--------------+---------------+----------------+ MEANINGS OF SOUND TERMS ADSR -- Attack/Decay/Sustain/Release Attack -- Rate sound rises to peak volume Decay -- Rate sound falls from peak volume to Sustain level Sustain -- Prolong note at certain volume Release -- Rate at which volume falls from Sustain level Waveform -- "Shape" of sound wave Pulse -- Tone quality of Pulse Waveform NOTE: Attack/Decay and Sustain/Release settings should always be POKEd in your program BEFORE the Waveform is POKEd. INDEX A Abbreviations, BASIC commands, D Accesories, INTRODUCTION, A Addition, 2.4-2.5, C AND operator, 5.4, C Animation, 4.1, 5.6, 6.2, E, G Arithmetic, Operators, 2.4-2.5, C Arithmetic, Formulas, 2.4-2.5, C, H Arrays, 8.3-8.6 ASC function, 4.8, C, F ASCII character codes, F B BASIC abbreviations, D commands, C numeric functions, C operators, 2.4, C other functions, C statements, C string functions, C variables, 3.3, C Bibliography, N Binary arithmetic, 6.3-6.4 Bit, 6.3-6.4 Business aids, A Byte, 6.4 C Calculations, 2.4-2.6 Cassette tape recorder (audio), 1.1, 2.3 Cassette tape recorder (video), 1.3 Cassette port, 1.1 CHR$ function, 3.3, 4.3, 4.8, 5.3, C, F, K CLR statement, C CLR/HOME key, 2.1, 3.1, 4.2 Clock, C CLOSE statement, B, C Color adjustment, 1.5 CHR$ codes, 5.3 keys, 5.1-5.2 memory map, 5.5, G PEEKS and POKES, 5.4 screen and border, 5.4-5.5, G Commands, BASIC, C Commodore key, (see graphic keys) Connections optional, 1.3 rear, 1.1 side panel, 1.1 TV/Monitor, 1.2 CONT command, C ConTRoL key, 1.5, 2.1 COSine function, C CuRSoR keys, 1.4, 2.1, 3.2 Correcting errors, 3.2 Cursor, 1.4 D DATASSETTE recorder, (see cassette tape recorder, audio) Data, loading and saving (disk), 2.3, C Data, loading and saving (tape), 2.3, C DATA statement, 6.2, 6.3, 7.4, 7.6, 8.1, C DEFine statement, C Delay loop, 5.4, 5.8 DELete key, 2.1 DIMension statement, 8.4, C Division, 2.4-2.5, C Duration, (see FOR ... NEXT) E Editing program, 2.1, 3.2 END statement, 3.4, C Equal, not-equal-to, signs, 2.4-2.5, 3.4, C Equations, 3.4, C Error messages, 2.4, L Expansion port, I EXPonent function, C Exponentiation, 2.4-2.5, C F Files, (tape), 2.3, B, C Files, (disk), 2.3, C FOR statement, 3.5, C FRE function, C Functions, C G Game controls and ports, 1.1, I GET statement, 4.4, C GET# statement, C Getting started, 2.1-2.6 GOSUB statement, C GOTO (GO TO) statement, 3.1, C Graphic keys, 2.1, 5.1-5.2, 5.4, E Graphic symbols, (see graphic keys) Greater than, 3.4, C H Hyperbolic functions, H I IEEE-488 Interface, A IF ... THEN statement, 3.4, C INPUT statement, 4.3, C INPUT# statement, C INSerT key, 2.1, 3.2 INTeger function, 4.5, C I/O pinouts, I I/O ports, 1.1-1.3 J Joysticks, 1.1, I K Keyboard, 2.1-2.2 L LEFT$ function, C LENgth function, 6.4, C Less than, 3.4, C LET statement, C LIST command, 3.1-3.2, C LOAD command, 2.3, C LOADing programs from tape, 2.3, C LOADing programs from disk, 2.3, C LOGarithm, C Loops, 3.5, 4.2-4.3 Lower Case characters, 2.1 M Mathematics formulas, 2.4-2.5 function table, H symbols, 2.4-2.5, 3.4 Memory maps, 5.5, G, O, P MID$ function, 6.4, C Modulator, RF, 1.2-1.3 Multiplication, 2.4-2.5, C Music, 7.1-7.8 N Names program, 2.3, C variable, 3.3, C NEW command, 3.1, C NEXT statement, 3.5, C NOT operator, C Numeric variables, 3.3 O ON statement, C OPEN statement, C Operators arithmetic, 2.4, C logical, C relational, 3.4, C P Parentheses, 2.5 PEEK function, 5.4, 5.6 Peripherals, 1.1-1.3 POKE statement, 5.4 Ports, I/O, 1.1, I POS function, C PRINT statement, 2.4, C PRINT# statement, C Precedence, 2.5 Programs editing, 2.1, 3.2 line numbering, 3.1 loading/saving (tape), 2.3, C loading/saving (disk), 2.3, C Prompt, 4.3 Q Quotation marks, 2.4 R RaNDom function, 4.5-4.8, C Random numbers, 4.5-4.8 READ statement, 8.1-8.2, C Reading from tape, B REMark statement, 4.2, C Reserved words, (see Commands, BASIC) RESTORE key, 2.1-2.2 RESTORE statement, 8.1, C RETURN key, 2.1-2.2 RETURN statement, C RIGHT$ function, C RUN command, C RUN/STOP key, 2.1, 3.1 S SAVE command, 2.3, C Saving programs (tape), 2.3, C Saving programs (disk), 2.3, C Screen memory maps, 5.5, G SGN function, C SHIFT key, 2.1-2.2 SINe function, C Sound effects, 7.7-7.8 SPC function, 8.6, C SPRITE EDITOR, INTRODUCTION SPRITE graphics, 6.1-6.3 SQuaRe function, C STOP command, C STOP key, 2.1 String variables, 3.3 STR$ function, C Subscripted variables, 8.3 Subtraction, 2.4-2.5, C SYNTAX ERROR, 2.4 SYS statement, C T TAB function, C TAN function, C TI variable, C TI$ variable, C Time clock, C TV connections, 1.2-1.3 U Upper/Lower Case mode, 2.1, E USR function, C User defined function, (see DEF) V VALue function, 6.4, C Variables array, 8.3-8.6, C dimensions, 8.4-8.6, C floating point, 3.3, C integer, 3.3, C numeric, 3.3, 4.3, C string ($), 3.3, 4.3, C VERIFY command, C Voice, 7.1-7.8, P W WAIT command, C Writing to tape, B Z, Z-80, INTRODUCTION, A Commodore hopes you've enjoyed the COMMODORE 64 USER'S GUIDE. Although this manual contains some programming information and tips, it is NOT intended to be a Programmer's Reference Manual. For those of you who are advanced programmers and computer hobbyists Commodore suggests that you consider purchasing COMMODORE 64 PROGRAMMER'S REFERENCE GUIDE available through your local Commodore dealer. In addition updates and corrections as well as programming hints and tips are available in the COMMODORE and POWER PLAY magazines, on the COMMODORE database of the COMPUSERVE INFORMATION NETWORK, accessed through a VICMODEM. COMMODORE 64 QUICK REFERENCE CARD SIMPLE VARIABLES TYPE NAME RANGE Real XY +/-1.70141183E+38 +/-2.93873588E-39 Integer XY% +32767...-32768 String XY$ 0 to 255 characters X is a letter (A-Z). Y is a letter or number (0-9). Variable names can be more than 2 characters, but only the first two are recognized. ARRAY VARIABLES TYPE NAME Single Dimension XY(5) Two-Dimension XY(5,5) Three-Dimension XY(5,5,5) Arrays of up to eleven elements (subscripts 0-10) can be used where needed. Arrays with more than eleven elements need to be DIMensioned. ALGEBRAIC OPERATIONS = Assigns value to variable - Negation ^ Exponentiation * Multiplication / Division + Addition - Subtraction RELATION AND LOGICAL OPERATORS = Equal <> Not Equal < Less Than > Greater Than <= Less Than or Equal To >= Greater Than or Equal To NOT Logical "Not" AND Logical "And" OR Logical "Or" Expressions equals 1 if true, 0 if false. SYSTEM COMMANDS LOAD "NAME" Loads a program from tape SAVE "NAME" Saves a program on tape LOAD "NAME",8 Loads a program from disk SAVE "NAME",8 Saves a program to disk VERIFY "NAME" Verifies that program was SAVEd without errors RUN Executes a program RUN xxx Executes program starting at line xxx STOP Halts execution END Ends execution CONT Continues program execution from line where program was halted PEEK(X) Returns contents of memory location X POKE X,Y Changes contents of location X to value Y SYS xxxxx Jumps to execute a machine language program, starting at xxxxx WAIT X,Y,Z Program waits until contents of location X, when EORed with Z and ANDed with Y, is nonzero. USR(X) Passes value of X to a machine language subroutine EDITING AND FORMATTING COMMANDS LIST Lists entire program LIST A-B Lists from line A to line B REM Message Comment message can be listed but is ignored during program execution TAB(X) Used in PRINT statements. Spaces X positions on screen SPC(X) PRINTs X blanks on line POS(X) Returns current cursor position CLR/HOME Positions cursor to left-up corner of screen SHIFT CLR/HOME Clears screen and places cursor in "Home" position SHIFT INS/DEL Inserts space current cursor position INST/DEL Deletes character at current cursor position CTRL When used with numeric color key, selects text color. May be used in PRINT statement. CRSR Keys Moves cursor up, down, left right on screen Commodore Key When used with SHIFT selects between upper/lower case and graphic display mode. When used with numeric key, selects optional text color ARRAYS AND STRINGS DIM A(X,Y,Z) Sets maximum subscripts for A; reserves space for (X+1)*(Y+1)*(Z+1) elements starting at A(0,0,0) LEN(X$) Returns number of characters in X$ STR$(X) Returns numeric value of X, converted to a string VAL(X$) Returns numeric value of X$, up to first nonnumeric character CHR$(X) Returns ASCII character whose code is X ASC(X$) Returns ASCII code for first character of X$ LEFT$(A$,X) Returns leftmost X characters of A$ RIGHT$(A$,X) Returns rightmost X characters of A$ MID$(A$,X,Y) Returns Y characters of A$ starting at character X INPUT/OUTPUT COMMANDS INPUT A$ or A PRINTs '?' on screen and waits for user to enter a string or value INPUT "ABC";A PRINTs message and waits for user to enter value. Can also INPUT A$ GET A$ or A Waits for user type one-character value; no RETURN needed DATA A,"B",C Initializes a set of values that can be used by READ statement READ A$ or A Assigns next DATA value to A$ or A RESTORE Resets data pointer to start READing the DATA list again PRINT "A=";A PRINTs string 'A=' and value of A; ';' suppresses spaces; ',' tabs data to next field PROGRAM FLOW GOTO X Branches to line X IF A=3 THEN 10 IF assertion is true THEN execute following part of statement. IF false, execute next line number FOR A=1 to 10 Executes all statements between FOR and corresponding STEP 2: NEXT NEXT, with A, going from 1 to 10 by 2. Step size is 1 unless specified NEXT A Defines end of loop. A is optional GOSUB 2000 Branches to subroutine starting at line 2000 RETURN Marks end of subroutine. Returns to statement following most recent GOSUB ON X GOTO A,B Branches to Xth line number on list. If X=1 branches to A, etc. ON X GOSUB A,B Branches to subroutine at Xth line number in list ABOUT THE COMMODORE 64 USERS GUIDE... Outstanding color ... sound synthesis ... graphics ... computing capabilities ... the synergistic marriage of state-of-the-art technologies. These features make the Commodore 64 the most advanced personal computer in its class. The Commodore 64 User's Guide helps you get started in computing, even if you're never used a computer before. Through clear, step-by-step instructions, you are given an insight into the BASIC language and how the Commodore 64 can be put to a myriad of uses. For those already familiar with microcomputers, the advanced programming sections and appendices explain the enhanced features of the Commodore 64 and how to get the most of these expanded capabilities. _____ / ___|___ | / |__/ c o m m o d o r e | \___|__\ C O M P U T E R \_____| Commodore Business Machines, Inc. -- Computer Systems Division, 487 Devon Park Drive, Wayne, PA 19087. DISTRIBUTED BY Howard W. Sams & Co., Inc. 4300 W. 62nd Street, Indianapolis, Indiana 46268 USA $12.95/22010 ISBN:0-672-22010-5 ********* End of the Project 64 etext of the Commodore 64 User's Guide. *********